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PREFACE 

This manual is a programmer's guide to subroutines contained in HP 1000 Operating Systems. For the 
RTE-IVB Real-Time Executive Operating System (Product Number 92068A) , this manual covers the following 
libraries: 



Library 
Mnemonic 

MLIB1 
MLIB2 
$YSLB 



Library Name 

Math/Formatter Library, Part 1 

Math/Formatter Library, Part 2 

RTE-IVB System Library 
(Also see RTE-IVB Programmer's Reference 
Manual part number 92068-90004) 



Part Number 

24998-12001 
24998-12002 
92067-16268 



For the following operating systems: 



Product Number 

24307B/C 

92001B 

92060B 

92067A 

92064A 



Operating System Name 

DOS-Ill Disc Operating System 
RTE-II Real-Time Executive Operating System 
RTE-III Real-Time Executive Operating System 
RTE-IV Real-Time Executive Operating System 
RTE-M Real-Time Executive Operating System 



this manual covers the following libraries: 



Library 

Mnemonic 

RLIB.N 

FF4.H 

FF.N 



Library Name 

DOS/RTE Relocatable Library 
FORTRAN IV Formatter 
FORTRAN Formatter 



Product or 
Part Number 

24998-16001 

24998-16002 

24153 



Section I of this manual introduces the libraries, describes the order in which they should be gen- 
erated into your operating system, and explains the format this manual uses to describe the in- 
dividual subroutines. Sections II and III are, respectively, alphabetical groupings of the DOS/RTE 
Relocatable Library mathematical and utility subroutines. Section IV is a discussion of the FORTRAN 
IV Formatter and the FORTRAN Formatter. 

Appendix A is a list of error messages for all subroutines that generate error messages. 
Appendix B is a description of how to use the RTE DEBUG Library Subroutine. 

Three indexes are included, to help you find the subroutines you need: Index 1 is a list of all entry 
points to the DOS/RTE Relocatable Subroutines; and Index 2 is a list of subroutines by function. 



m 



There are several other relocatable libraries currently distributed with your DOS or RTE operating 
system. The following table identifies them, and directs you to the documentation which describes 
their use: 



Library 

Mnemonic Library Name 

FLIES. N Floating Point Library 
(DOS III only) 

FFP.N 2100 FFP Subroutine Library 



$SETP 2100 FFP $SETP System 

Subroutine (DOS-Ill only) 

FPM.H 21MX.FFP Subroutine Library 



$SETP 21MX FFP $SETP System 

Subroutine (DOS-Ill only) 



na 7210A Plotter Library 

(RTE only) 



CalComp Plotter Library 



Library Part or 
Product Number 

24998-16001 
12907-16001 
12907-16002 
24998-16008 

12977-16002 

92409-60001 

20810 



Related Manual 
(and Part Number) 

DOS III Disc Operating 
System (24307-90006) 

Implementing 2100 FFP 
(12907-90010) 

Implementing 2100 FFP 
(12907-90010) 

12977A FFP Installation and 
Programming Manual 
(12977-90001) 

12977A FFP Installation and 
Programming Manual 
(12977-90001) 

Utility Subroutines for 
7210A X-Y Plotter 
(92409-93001) 

12360A Digital Plotter 
Interface Kit (12560-9001) 



IV 



CONTENTS 



iii Preface 

v Contents 

1-1 Section I 

Introducing the Libraries 

2-1 Section II 

Mathematical Subroutines 
Double Integer Subroutines 



3-1 


Section III 
Utility Subroutines 


4-1 


Section IV 
The Formatter 


A-l 


Appendix A 

Run-time Error Messages 


B-l 


Appendix B 

RTE DEBUG Library Subroutine 


1-1 


Index I 

Relocatable Library Entry Points 


II-l 


Index II 



Subroutines by Function 



SECTION I 



INTRODUCING THE LIBRARIES 



INTRODUCING THE LIBRARIES 

The libraries of relocatable subroutines distributed with your operating- system have two functions: 

1. The libraries provide you with tested and supported subroutines that save you programming 
time. These subroutines can be called from your Assembly language, FORTRAN, or ALGOL appli- 
cation programs. 

2. The libraries contain subroutines used by the operating system to perform its functions. 
Therefore the libraries are required to generate the operating system. 

USING THE LIBRARIES IN A DISC-BASED OPERATING SYSTEM 

When you generate your disc-based operating system, you must include the proper relocatable libraries 
in your system, and they must be included in a definite order. Follow the flowchart in Figure 1-1 
(for DOS-Ill) or in Figure 1-2 (for RTE) for the correct entry order. The libraries are included 
during the program input phase of system generation. 

When an operating system module or one of your application programs executes a call to one of the 
library subroutines, the Relocating Loader ensures that the correct linkages are made between the 
calling routine and the proper subroutine. 

For a complete discussion of program input order, refer to the system generation instructions in the 
following manuals: 

Product No. Manual Title Manual Part No. 

92068A RTE-IVB System Manager's Manual 92068-90006 

92067A RTE-IV Programming and Operating Manual 92067-90001 

92060A/B RTE-III Programming and Operating Manual 92060-90004 

92001A/B RTE-II Programming and Operating Manual 92001-93001 

24307B/C DOS-Ill Disc Operating System Reference Manual 24307-90006 

USING THE LIBRARIES IN A MEMORY-BASED OPERATING SYSTEM 

When one of your application programs executes a call to one of the library subroutines, the gener- 
ator or relocating loader ensures that the correct linkages are made between the calling routine and 
the proper subroutine. For each program, you must direct the generator or relocating loader to 
search the file (or device) containing the required subroutines as described in the following manuals: 

Product No. Manual Title Manual Part No. 

92064A RTE-M Programmer's Reference Manual 92064-90002 

RTE-M System Generation Reference Manual 92064-90003 
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f 24307B/C ) 



INCLUDE 
RLIB.N 




INCLUDE 

FF4.N 

(24998-16002) 




INCLUDE 

FF.N 
(24153) 




INCLUDE 

FLIB.N. 

(24998-16003) 




NO, 2100 




INCLUDE 

$SETP, 

(12907-16002) 

FFP.N 
(12907-160011 



INCLUDE 

$SETP 
(12977-16002) 

FPM.N 
124998-16008) 




INCLUDE THEM 
IN ORDER SUG- 
GESTED BY 
DOS-Ill MANUAL 
(24307-90006) 



< 



J 



Figure 1-1 DOS-Ill Library Selection 
1-2 



INCLUDE 
RLIB.N 




INCLUDE 

FF4.N 

(24998-16002) 




FF4.N 
(24998-16002) 




INCLUDE THEM IN 

ORDER SUGGESTED 

IN RTE MANUALS 

(92001-93001) 

(92060-90005) 

(92067-90001 ) 



< 



J 



Figure 1-2. RTE Disc-Resident Library Selection 
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HOW SUBROUTINES ARE PRESENTED 



In this manual, the subroutines in each section are presented one to a page, in alphabetic order. 
Study the sample page format, Figure 1-3, and the following information to optimize your use of this 
manual . 



NAME 



PURPOSE: 



PROGRAM TYPE = 



ROUTINE IS: 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 



COMMENTS: 



ENTRY POINTS: 



Figure 1-3. Sample Page Format 
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"NAME" 
Purpose 

Program Type = 
Routine is: 
Entry Points 
External References 



The name of the routine record in the NAM record. 

The use of the routine. 

Will be either 6 or 7 

Will be P for Privileged, R for Reentrant, or U for Utility. 

The entry points to the routine. 

These are other subroutines that are called by the subroutine. 
All external references except EXEC, $0PSY, REIO, IFBRK, .ZPRV, 
and .ZRNT are entry points in RLIB. EXEC and $0PSY are system 
entry points. IFBRK & REIO are system library entry points. 

These symbols receive special handling by the DOS and RTE 
generators and loaders. In DOS, both JSB .ZPRV and JSB .ZRNT 
are always changed to RSS. In RTE, both JSB .ZPRV and JSB .ZRNT 
are changed to RSS unless the routine is generated into the 
resident library. If the routine is in the resident library, 
the generator modifies its code as follows: 



ENTRY NOP 

JSB .ZPRV 
DEF EXIT 



ENTRY NOP 

JSB $LIBR 
NOP 



EXIT 
ENTRY 



JMP ENTRY, I 

DEF ENTRY 

NOP 

JSB .ZRNT 

DEF EXIT 



EXIT JSB $LIBX 

DEF ENTRY 

ENTRY NOP 

JSB $LIBR 

DEF TDB 



EXIT 



Calling Sequences 



Method 



Attribute Chart 



JMP ENTRY, I 
DEF TDB 
DEC 



EXIT JSB $LIBX 
DEF TDB 
DEC 



$LIBR and $LIBX are system entry points that allow multiple 
RTE programs to share code. 

This is the assembly language calling sequence for each entry 
point. The arrow (-»■) indicates a return point. "A" and "B" 
indicate the A- and B- registers. 

This gives the algorithm for producing the result and/or the 
accuracy of the routine. 

For each entry point, this chart gives the following information: 

a. Parameters: their type (real, integer, double real or 
complex) and whether they are loaded into the A- and B- 
registers. 

b. Result: the type of the result and the registers (if any) 
where it is returned. 
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e. 



Fortran: whether the routine is callable as a function 
(e.g., ABS(x)), callable as a subroutine (e.g., CALL 
RMPAR (TBUF)) or uncallable in HP FORTRAN. 

FORTRAN IV; whether the routine is callable as a function 
(e.g., ABS(x)), callable as a subroutine (e.g., CALL RMPAR 
(IBUF)), or uncallable in HP FORTRAN IV. 

ALGOL: whether the routine is an intrinsic, callable or 
uncallable as a procedure in HP ALGOL. 

ERRORS: This gives a summary of the error conditions 
reported by the subroutine. Errors generated by exter- 
nal references are not described. See Appendix A for a 
fuller discussion of error messages. 



MICROCODED SUBROUTINES 



Fast Fortran Processor 



The HP 2100 and 21MX computers have, as an option, a Fast FORTRAN Processor (FFP). The HP 12907 FFP 
is optional for the HP 2100 computers and the HP 1 2977 FFP is optional for the HP 21MX computers. 
The FFP firmware feature provides for faster execution of the following routines: 



.GOTO 


..MAP 


.ENTR 


. ENTP 


DBLE 


SNGL 


.XMPY 


.XDIV 


.DFER 


.XFER 


.XADD 


.XSUB 


$SETP 







The following additional Relocatable Subroutine entry points are available only in HP 12977 FFP: 



.PWR2 .XPAK .FLUN 



.XCOM .PACK 



.DCM DDINT 



No change from the calling sequence defined in this manual is required to use these routines in FFP, 

if installed. The user should be aware that after the first execution of a subroutine call, "JSB 

.GOTO" for example, the main memory location containing the JSB is modified to hold a branch to the 
ROM address where the .GOTO microcode begins. 

Floating Point Library 

A second microcode option on the HP 2100 computer, HP 12901 Floating Point, provides firmware for 
faster execution of the following routines: 



.FAD 



.FSB 



.FMP 



.FDV 



FLOAT 



IFIX 



These routines are implemented in the same fashion as the FFP routines. (The HP 21MX computers 
include the floating point firmware as part of the basic instruction set.) 
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SECTION II 



MATHEMATICAL SUBROUTINES 



ABS 



PURPOSE: Calculate the absolute value of a real 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ABS 


..FCM,. 


ZPRV 






DLD x 








JSB ABS 








•+ result 


in A 


& 


B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ABS 


Real: 


A & 


B 




Real: 


A & 


B 




Funct 


on: 


ABS 


U) 


Funct 


'on: 


ABS 


M 


Intri 


isic 


ABS 


(x) 


None 
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AIMAG 

PURPOSE: Extract the imaginary part of a complex x. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



AIMAG 



.ZPRV 



JSB AIMAG 
DEF *+2 
DEF x 
■* result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



AIMAG 


Complex 


Real : A I 


B 




Callable 


as 


function 


Function 


AIMAG (x) 


Callable 


as 


real procedure 


None 
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AINT 



PURPOSE: 



Truncate a real x. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




METHOD: y = largest integer <Jx| 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



AINT 



Real: A&B 



Real: A&B 



Not callable 



Function: AINT (x) 



Not callable 



None 
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ALOG 



PURPOSE: Calculate the natural logarithm of a real x: 

y = In (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 








ROUTINE IS: R 


LN 

ALOG 


.FLUN, FLOAT, .FAD, 


.FSB, .FDV, 


.FMP 


.ZPRV 




DLD x 

JSB ALOG (or LN) 

JSB ERR0 (error return) 

•* return (y in A & B) 



METHOD: 



The range is reduced to (.707, 1.414) using the identity: 

x 
ALOG (x) = Ln (2) * (N + Log 2 ( 2 N)) 

Then the Following Formula is used: 
log 2 (r) = z * (A + 



where 



z = 



x 
2 N 

r-1 
y+1 



C + r 



A = 1.29061344 
B = 2.6444261 
C = -1.6581795 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ALOG 


LN 


Real : A & B 


Real: A & B 


Real: A & B 


Real: A & B 


Function: ALOG(x) 


Not callable 


Function: ALOG {x) 


Not callable 


Not callable 


Intrinsic Procedure 


x < ■> (02 UN) 


Same 



NOTES: 



ALOG is the FORTRAN entry point; LN is the ALGOL entry point. 



2-4 



PURPOSE: 



ALOGT 



Calculate the common logarithm (base 10) of real x: 

y = log 1Q x 



ENTRY 


POINTS: 


EXTERNAL 


REFERENCES: 


CALLING 


SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


ALOGT ALOG0 


ALOG, .FMP 


DLD x 

JSB ALOGT (or ALOG0) 
JSB ERRO (error return) 
■* return (y in A&B) 



y = log 1Q x = log 1Q e*log e x 

Accuracy depends on the accuracy of ALOG. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


ALOGT (ALOG0) 


Real 


Real: A&B 


Not Callable 


Function: ALOGT (x) 


Not callable 


If x - - (02 UN) 
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AMOD 



PURPOSE: Calculate the real remainder of x/y for real x and r: 

z - x modulo ¥ 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES. 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



[AINT(x/y)]*y 



ROUTINE IS: P 



AMOD 



.ENTP, .ZPRV 

AINT, .FDV, .FMP, .FSB 



JSB AMOD 
DEF * + 3 
DEF x 
DEF y 
-* z in A & 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


AMOD 


Real 


Real; A&B 


Callable 


as Funct 


ion 






Function: 


AMOD (j 


■ ,y) 






Callable 


as Real 


Procedure 






If Y = 0, 


then z 


= X 
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ATAN 



PURPOSE: Calculate the arctangent of a real x: 

y = tan" (x) 



PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



x is reduced to the range [-.5, -5] using the identities: 
ATAN U) = -ATAN(-x) For x<0 
ATAN U) = tt/4-ATAN (j£) For .5<x<2 



ATAN (x) = tt/2-ATAN 



-1> 



ROUTINE IS: R 



ARCTA 
ATAN 


.ZPRV, ..FCM, 
.FSB, .FDV, . 


.FAD, 
FMP 


DLD x 

JSB ATAN (or ARCTA) 

•*■ return (y in A&B) 



For x>2 



ATTRIBUTES: 



Then the Following Formula is used: 

ATAN(x) = x/(A+B*(x 2 + C/(D+x 2 ))) 



where 



A = 1.3504734 
B = .15700588 



C = -4.4369869 
D = 1.9876921 

ENTRY POINTS: 



ATAN 


ARCTA 


Real : A & B 


Real : A & B 


Real: A&B (radians) 


Real : A & B (radians) 


Function: ATAN (x) 


Not callable 


Function: ATAN (x) 


Not callable 


Not callable 


Intrinsic Function: ARCTAN(x) 


None 


None 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: i. ATAN is the FORTRAN entry point and ARCTA is the ALGOL entry point. 
2. Result ranges from -n/2 to tt/2. 
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ATAN2 

PURPOSE: Calculate the real arctangent of the quotient of two reals: z = arctan (y/x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 






ROUTINE IS: R 


ATAN 2 




.ENTP, SIGN, ATAN, 


.ZRNT, 


.FDV, .FAD 


JSB ATAN2 
DEF * + 3 
DEF Y 
DEF x 

-* z in A & B 



METHOD: 



If x = 0, z = sign (r) tj/2 

If x > 0, z = arctan (y/xj 

If x < 0, z = arctan fr/x) + sign (r) .n 

Accuracy depends on accuracy of ATAN. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 











ENTRY 


POINTS: 


ATAN2 


Real 


Real : P 


& 


B 








Callable 


as 


Function 






Function 


ATAN2 


(y/-*) 






Callable 


as 


Real 


Procedure 






None 
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CABS 

PURPOSE. Calculate the real absolute value (modulus) of complex x: y = \x\ 



PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



CABS 



ABS, .FSB, .FAD, .FDV, .FMP, .ENTP, SQRT, .ZRNT, 



JSB CABS 
DEF *+2 
DEF x 

-> ¥ in A 



ROUTINE IS: R 



y = \x\ = \x,+i*xJ = / 2 , 2 = \xi\ / 1 + /x 2 \ 2 for j^i ]^.|^ 2 1 ^ °* 

12 (IT) 

= |x 2 [ //xA 2 + 1 for 1*2 1 > l*i I 



(I) 



Accuracy depends on the accuracy of SQRT. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



CABS 


Complex 


Real: A&B 


Callable 


as Fund 


,ion 


Function: 


CABS (x) 


Callable 


as Real 


Procedure 


None 
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CADD 

PURPOSE: Interface routine to allow FORTRAN II program to utilize the FORTRAN IV 
complex add routine, .CADD. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



CADD 


.RCNG, 


.CADD 


JSB CADD 


DEF * 


+ 4 


DEF z 


(result) 


DEF x 




DEF y 




-> 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


CADD 


Complex 


Complex 


Callable CADD (z 


x,y) 










NOT APPLICABLE 


NOT APPLICABLE 


Overflow bit set 


if rest 


It 


out 


of 


range 



Note: See OVF function for testing results 
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CDIV 

PURPOSE: Interface routine which allows FORTRAN II programs to utilize the FORTRAN IV 
complex divide routine .CDIV. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



CDIV 



.RCNG, 




.CDIV 




JSB CDIV 




DEF * + 4 




DEF z (resi 


It) 


DEF x 




DEF y 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


CDIV 


Complex 


Complex 


Callable CDIV (z, 


x,y) 










NOT APPLICABLE 


NOT APPLICABLE 


Overflow bit set 


if resu 


It 


out 


of 


range 



Note: See OVF function for testing results 
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CEXP 



PURPOSE: Calculate the complex exponential of a complex x. 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



CEXP 



.ENTP, EXP, .ZRNT 
SIN, COS, .FMP 



JSB CEXP 

DEF *+3 

DEF y (result) 

DEF x 

■*■ Error return 

■*• Normal return 



Y = Y. +1 



Y 2 = e 



Mi + 1 *z) = P *i 



ROUTINE IS: R 



;cos x„ + i • sin x„) 



Accuracy: depends on the accuracy of EXP and SIN. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CEXP 



Complex 



Complex 



Not Callable 



Function: CEXP(x) 



Not callable 



If X] . log 2 e > 124, +(07 OF). (EXP) 
If 2 |^ + 2 I >2 llt +(|35 OR). (SIN) 
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CLOG 



PURPOSE: Calculate the complex natural logarithm of a complex x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



CLOG 



.ENTP, ALOG, .ZRNT 
CABS, ATAN2 



JSB CLOG 

DEF *+3 

DEF y (result) 

DEF x 

-> Error return 

■+ Normal return 



y = y-i + i-y 2 = lo 9 e x = lo 9 e ^ x i + i-x 2^ = log e ^ r ^ + i-G 

where /— s ~- 

r = / X^ + X^ 

= arctan/ x 



*1 
Accuracy depends on the accuracy of ALOG and SQRT. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


CLOG 


Complex 


Complex 


Not Callable 


Function: CLOG(x) 


Not Callable 


If x = - (02 UN) 
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CMPLX 



PURPOSE: Combine a real x and an imaginary y into a complex z. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



CMPLX 



.ENTP, .ZPRV 



JSB CMPLX 
DEF *+4 
DEF z 
DEF x 
DEF Y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



cmpix 


Real & Real 


(ima 


31 nary 


part) 


Complex 


Callable 


Function: 


CMPLX 


(*,y) 




Callable as 


real 


procedure 


None 
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CMPY 

PURPOSE: Interface routine to allow FORTRAN II programs to utilize the FORTRAN IV complex 
multiply routine, .CMPY. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



CMPY 


.RCNG, 


.CMPY 


JSB CMPY 


DEF * 


+ 4 


DEF z 


(result) 


DEF x 




DEF y 




-> 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 


CMPY 


Complex 


Complex 


CALL CMPY [z,x,y) 


NOT APPLICABLE 


NOT APPLICABLE 


Overflow bit set if 


result 


out 


of 


range 



Note: See OVF function for testing results 
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CONJG 



PURPOSE: Form the conjugate y of a complex x. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



CONJG 


.ENTP 


..DLC, .ZPRV 


JSB CONJG 


DEF * 


+ 3 


DEF ¥ 


(result) 


DEF x 




-> 





If x = x + i -x , then y 

1 2 



X l - W 2 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



CONJG 


Complex 


Complex 


Callable 


Function 


CONJG 


U) 


Callable 


as real 


procedure 


None 
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COS 



PURPOSE: 



See .SNCS 
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CSNCS 

PURPOSE: Calculate the complex sine or cosine of complex x: y = sine {x) 

y = cosine (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 






ROUTINE IS: U 






CSIN 
CCOS 




.ENTR, 
EXP, . 


SIN, 
.FCM, 


COS 




JSB CSIN (or CCOS) 

DEF * + 3 

DEF Y 

DEF x 

JSB error routine 

-* Normal return 



METHOD: 



Sine: y = Y, + i • Y„ = sin (x) = sin (x-, + i-x„) = 



sintxj) (e x 2 + e " x 2) 



e A 2) 



+ i7cos(x.,) \(e 2 

) = cos(x 1 + i .» 
Xl )Ve x 2 + e" x 2) +/i •s1n(x l )V-x 2 _ g x 2) 



Cosine: y = Y, + Y„ . i = cos(x) = cos(x.. + i.x„) 
cos( 



Accuracy depends on the accuracy of EXP and SIN. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 











ENTRY 


POINTS: 




CSIN 










CCOS 




Complex 










Complex 




Complex 










Complex 




Not callable 










Not callable 


Function: CSIN 


U) 








Function 


: CCOS ( x ) 


Not callable 










Not call 


able 




1 , 

2 ! 

x 2 


X 

71" 


♦ii 

log 2 e 


,14 

> 2 -» 

> 124 -» 


• (05 OR) 

• (07 OF) 


(SIN) 
(EXP) 
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CSQRT 

PURPOSE: Calculate the complex square root of complex X: y = y-| + i-y,, = /x-j+i .x 2 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 




ROUTINE IS: R 


CSQRT 


.ENTP, ..DLC, .CFER 
SQRT, CABS, .ZRNT, 


JSB CSQRT 
DEF * + 3 
DEF y (result) 

DEF x 



If X = 0, Y = 



If X ] > 



; Y 1 = /x l + |X| , 



Y 2 ~_h 

2Y, 



If X ] < 0; Y 2 = sign(X 2 ) j -X ] + |X| _ v = x 

^ 2Y. 



Accuracy depends on the accuracy of SQRT. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 


CSQRT 


Complex 


Complex 


Callable: 


CALL CSQRT (y 


*) 






Function: 


CSQRT (x) 








Callable 


as a real proce 


dure 






Overflow 


bit set if resu 


It out 


of 


range. 



Note: See OVF function for testing results. 
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CSUB 

PURPOSE: Interface routine which allows FORTRAN II programs to use the FORTRAN IV complex 
subtract routine, .CSUB. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



CSUB 


.RCNG, .CSUB 


JSB 


CSUB 


DEF 


*+4 


DEF 


z (result) 


DEF 


X 


DEF 


y 


-V 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 











ENTRY 


POINTS: 


CSUB 


Complex 


Complex 


Callable 


: Call 


CSUB (z 


*, 


y) 






Not Appl 


i cable 












Not Appl 


i cable 












Overflow 


bit set 


if rest 


It 


out 


of 


range. 



Note: See OVF function for testing results. 
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DABS 



PURPOSE: Calculate the absolute value of an extended real x: y = \x\ 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DABS 


..DCM, .DFER, .ENTP, 


.ZRNT 


JSB DABS 




DEF *+3 




DEF y 




DEF x 




-V 





ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DABS 


Extended Real 


Extended Real 


Callable 


Function: DABS 


M 










Callable as rea 


1 procedure 








If x = smallest negative 

y = largest positive 
and the overflow bit is 


' number 

number 
set. 


(- 
[0 


2 127 ), 
.2-39) 


then 
• 2 127 ] 
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DATAN 

PURPOSE: Calculate the extended real arctangent of extended real x: y = arctan (x) 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DATAN 



.ZRNT, .XADD, .XSUB, .XMPY, .XDIV, .ENTP, ..DCM, .FLUN, .DFER 



J SB DATAN 
DEF *+3 

DEF y (result) 
DEF x 



METHOD: 



If x < 0, y = -arctan(-x) 

If |x|>l, let z = 1 , then y = n - arctan(z; 
1*1 2 



If z <. /f-_ i, se t v = tan^ , 


IT 

W= 1B- 


If z < /T- 1, set v = tan || 


3tt 
' w = T6 


Then r = z-v 





1+zV 
Arctan(z) = w + arctan(r) 



Arctan(r) 



V 



^[(sr+fig) (r^+B 3 )+c 3 ] 



(t 2 + Bi ) [(r 2 +B 9 ) (r 2 +B 3 )+c 3 ]+c 2 (r 2 +B 3 ) 



C = 



.208979591837 



C 1 = 2.97061224490 
C 2 = -3.35025248131 
C 3 = -.128720995297 



Bi 



5.10299532839 
2.58417875505 
1.21282591656 



Accuracy: The relative error in y = arctan (x+ Ax) is r = 



AX 



(x +1) arctan (x) 
where ax represents the round-off error in x. Hence, at 
x = +.001, the accuracy will be 9 significant digits due to 
the round-off error in the 39th bit of x. As x diverges from 
0, the accuracy becomes 11 significant digits. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


DATAN 


Extended 


Real 








Extended 


Real 








Callable 


i CALL 


DATAN (y,x) 






Function 


DATAN 


U) 






Callable 


as rea 


1 procedure 






None 
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DATN2 

PURPOSE: Calculate the extended real arctangent of the quotient of two extended reals: 

z = arctan {y/x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 




ROUTINE IS: R 


DATN2 DATA2 


.ENTP, DSIGN, DATAN, .ZRNT 
.XADD, .XDIV, .DFER 


JSB DATN2 (or DATA2) 

DEF *+4 

DEF z (result) 

DEF y 

DEF x 



METHOD: 



If x = 0, z 

If x > 0, z 
If x < 0, z 



sign (y). l 
2 
arctan {y/x) 

arctan [y/x) + sign (y) 



Accuracy depends on accuracy of DATAN. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DATN2 DATA2 


Extended 


Real 






Extended 


Real 






Callable 


DATAN 2 


(Iz 


IqAx) 


Function 


DATN2 (y 


,*) 




Callable 


as real p 


roce 


dure 


None 
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DBLE 



PURPOSE: Convert a real x to an extended real y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



DBLE 



.ZPRV 



JSB DBLE 
DEF *+3 

DEF y (result) 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

Note: 



DBLE 


Real 


Extended 


Real 




Callable 


Function 


DBLE U) 


Callable 


as real 


procedure 


None 



This routine is available in firmware, 
description of FFP on page 1-6. 



See 
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DCOS 

PURPOSE: Calculate the extended real cosine of extended real x (angle in radians): y = cos (x) 



PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



DCOS 



.ENTP, DSIN, 
.ZRNT, .XADD 



JSB DCOS 
DEF *+3 
DEF y (result) 
DEF x 



ROUTINE IS: R 



y = cos U) = sin (x + tt/2) 

Accuracy depends on the accuracy of DSIN. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DCOS 


Extended 


Real 


(radians) 


Extended 


Real 




Callable 


Function 


DCOS 


U) 


Callable 


as real orocedure 


None 
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DDINT 



PURPOSE: Truncate an extended real x to an extended real y: 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



DDINT 


.XADD, .ENTP, 
ENTIX 


.ZRNT 


JSB DDINT 
DEF *+3 
DEF Y 
DEF x 



METHOD: y = Largest integer 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DDINT 


Extended 


Real 




Extended 


Real 




Callable 


Function 


DDINT 


U) 


Callable 


as real 


Drocedure 


None 



Note: This routine is available in 21MX FFP firmware. 
See summary in section I. 
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DEXP 



PURPOSE: 



Calculate the extended real exponential of a extended real x-. y = e 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



DEXP 



.ENTP..XADD, .XSUB, .XMPY, .XDIV, .DFER, 
.ZRNT, DDINT, SNGL, IFIX, .FLUN, .XPAK 



JSB DEXP 

DEF *+3 

DEF y (result) 

DEF x 

■+ error return 

■+ normal return 



w z 
e x - 2 e 



= Co + 



where: z = ln2 (xlog^e-w) 

n = [xlog 2 e+l/2] (see DDINT) 

C ] (z(z 2 +C 4 )+C 3 z) 



(z+ B] ) (z (z 2 +C 4 )+C 3 z )+C 2 (z 2 +C 4 ) 



Co = 1.0 



40.0 



C 2 = 138.0 

C 3 = 29.8260869565 



C 4 = 12.17391304348 
B n = -20.0 



Accuracy: The relative error in y =6^ + Ax is r = Ax where ax represents 
the error in the argument. Thus for \x\ <1 , the accuracy will 
be 11 significant digits, but for |x|near 100, the accuracy 
will be 8 significant digits. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 


DEXP 


Extended Real 


Extended Real 


Not callable 


Function: DEXP (x) 


Not callable 


If e x > (1-2" 39 ) 


,127 


(1(3 OF) 
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DIM 



PURPOSE: Calculate the positive difference between real x and y: z = x - min {x,y) 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DIM 


.FSB, 


.ZPRV 


JSB 


DIM 


DEF *+3 


DEF 


X 


DEF 


Y 


-> z 


in A & B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 


DIM 


Real 


Real 


Callable 


• Z = DIM ix.v) 






Function 


DIM (x,y) 






Callable 


as Real Procedure 






None 
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DLOG 



PURPOSE: Calculate the extended real natural logarithm of a extended real x: 

r = log e x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 








ROUTINE IS: R 


DLOG 


.ENTP, .XADD, 
.FLUN, FLOAT, 


.XSUB, .XMPY, 

DBLE, .DFER, 


.XDIV, 
.ZRNT 


.FSB, 




JSB DLOG 

DEF *+3 

DEF y (result) 

DEF x 

■+ error return 

-»■ normal return 



ln(x) = (n-l/2)ln2 + In /1+z 

where: n = Exponent of x 
m = Mantissa of x 
z = m - /2~7 2 



m + /2~7 2 



In 1+z = z r 

1-z S„2 



Cl [(z 2 +B 2 )(z 2 +B3)+C 3 ] 



z'+B 1 ) [ (z 2 +B 2 ) (z 2 +B 3 )+C 3 ]+C 2 (z 2 +B 3 



-] 



C, = -18.4800000000 
C 2 = -23.643709825 
C 3 = -.246270037272 



B ] = -15.8484848485 
B 2 = -3.75400078147 
B 3 = -1.39751437005 



Accuracy: See Note. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


DLOG 


Extended Real 


Extended Real 


Not callable 


Function: DLOG U) 


Not callable 


If x ^0 -> (11 UN) 



NOTE: 



The relative error in r= ln(x+Ax) is r = hx . Hence, the relative 

xlnx 

error increases as x approaches 1. At x = 1.000 + .001 the accuracy 

will be 9 significant digits due to an error in the 39th bit in the 

representation of x. As x diverges from 1 the accuracy becomes 11 

significant digits. 
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DLOGT 



PURPOSE: Calculate the extended real common logarithm of extended real x: 

y = log 1Q x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


DLOGT (DLOG0) 


.ENTP, DLOG, .XMPY 


J SB DLOGT (DLOG0) 

DEF *+3 

DEF y (result) 

DEF x 

-s- error return 

■+ normal return 



y = log 1Q x = log e x/log e 10 

Accuracy depends on the accuracy of DLOG. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DLOGT (or DLOGfl) 



Extended Real 



Extended Real 



Not callable 



ENTRY POINTS: 



Function: DLOGT (x) 



Not callable 



ify<nwn iin) 
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DMOD 



PURPOSE: Calculate the extended real remainder of two extended real values: 

z = x mod y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES. 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



DMOD 


.ENTP, 


.XSUB, 


.XMPY, .XDIV, DDINT, 


.ZRNT 


JSB DMOD 
DEF *+4 
DEF z (result) 
DEF x 
DEF y 

-> 



METHOD: z = x - [DDINT (x/y)]y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DMOD 






i 


Extended 


Real 






Extended 


Real 






Callable 


: CALL 


DMOD 


(Iz.Ix.Iu) 


Function: 


DMOD {x,y) 




Callable 


as real 


procedure 


If y = 0, 


then z 


= X 
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DSIGN 

PURPOSE: Transfer the sign of a extended real y to a extended real x : 

i = sign (y) . |x| 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DSIGN 



.DFER, .ENTP, ..DCM, .ZRNT 



JSB DSIGN 
DEF *+4 
DEF 2 (result) 
DEF x 
DEF y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DSIGN 


Extended 


Real 




Extended 


Real 




Callable 


Function 


DSIGN 


(*,y) 


Callable 


as real 


procedure 


If Y = 


z = 0. 
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DSIN 

PURPOSE: Calculate the extended real sine of extended real x (angle in radians): 

y = sin (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 


= 6 








ROUTINE IS: R 


DSIN 


.ENTP, 
.XSUB. 




..DCM, XPOLY, 
ENTIX, .XADD, 


.DFER 
.XMPY, 


.XDIV, 


.ZRNT 


JSB DSIN 
DEF *+3 
DEF y 
DEF x 

-*- 



METHOD: 



x is reduced to the range 

If x <10~ , sin (x) = x. 
Otherwise sin (x) =/6 



2 



-.166666666667 E+0 
.833333331872 E-2 



C 3 = 

C 4 = 



C,x 2l +l) x 
4=1 ' J 

.198412663895 E-3 
.275569300800 E-5 



C 5 = 
C 6 = 



.250294478915 E-7 
.154001500048 E-9 



When x is near a non-zero multiple of ir, the accuracy of the 
result is limited by the accuracy of the subtraction mr -x. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DSIN 


Extended 


Real (radians) 


Extended 


Real 


Callable 


CALL DSIN (ly,Ix) 


Function 


DSIN (x) 


Callable 


as real procedure 


None 
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DSQRT 



PURPOSE: 



Calculate the extended real square root of extended real x: y = sqrt (x) 



PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: R 



METHOD: 



DSQRT 



.ENTP, DBLE, SNGL, SQRT, .XDIV, 
.XADD, .ZRNT, .XMPY 



JSB DSQRT 

DEF *+3 

DEF y (result) 

DEF x 

■*■ error return 

-> normal return 



A first approximation is found using the 

single precision SQRT: z = SQRT (x) 

Then y = z+x/z 

2 
Accuracy is 11 significant digits. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



n .SQ RT 



Extended Real 



Extended Real 



Not callable 



Function: DSQRT jx) 



Not callable 



If X < - (03 UN) 
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DTAN 



PURPOSE: Calculate tangent of extended real X. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DTAN 



.ENTR, .DFER, .TMPY, .TSUB, .TINT, .ITBL, 
.XADD, .XMPY, .XDIV, XPOLY 



J SB DTAN 
DEF *+3 
DEF <result> 
DEF x 
<error return> 



METHOD: The range is reduced to (-1,1) using the identities: 



TAN(X) = TAN(X-N*ti) 
TAN(X*4/tt) = TAN(X*4/ir-4*N) 
TAN(X) = -1.0 / TAN(X-ir/2) 
TAN(X*4/rr) = -1.0 / TAN(X*4/tt-2) 



The following approximation is used on the 
reduced range: 



TAN(X) = Z * (- 



CI 



T2+ZSQ 

CI = -.2546606671100+01 
C2 = -.400002835440D+01 
C3 = . 148751008558D+00 
C4 = .233036398271D-02 
C5 = .564290881573D-04 
C6 = .133098254545D-05 



+ C3+ZSQ*(C4+ZSQ*(C5+ZSQ*C6)); 



Z = X*4/tt 
ZSQ = Z*Z 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY t 


>OIN 


TS: 


DTAN 


Extended real (radians) 


Extended real 


Callable: Call DTAN(Y.X) 


Function: DTAN(X) 


Callable as real procedure 


X outside [-8192*tt,+8191.75*tt] -+ 


09 


OR 



NOTES: 
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DTANH 



PURPOSE: Calculate hyperbole tangent of extended real X 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 










ROUTINE IS: U 


DTANH 


.ENTR, .DFER, 


.XFER, .FLUN, 


.PWRZ, 


DEXP, 


.XADD, 


.XMPY, .XDIV 


JSB DTANH 
DEF *+3 
DEF <result> 
DEF x 



METHOD: Outside the range [-32, +32) the result is 1.0 times the sign of the argument. 

Within the above range but outside the range [-0.25, +0.25) the definition is used: 



TANH(X) = 



EXP(2*X) - 1 



EXP(2*X) + 1 
Within [-0.25, +0.25) the following approximation is used: 



TANH(X) = X * ( 



CI 



C2+XS0 
WHERE: 

CI = .201101929221D+01 
C2 = .247073386009D+01 
C3 = .186063976899D+00 
C4 = .390245451777D-02 
XSQ = X*X 



+ C3 + C4*XSQ 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 





ENTRY POINTS: 


DTANH 


Extended real 


Extended real 


Callable: Call DTANH(Y.X) 


Function: DTANH(X) 


Callable as real procedure 


None 



NOTES: 
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ENT1E 



PURPOSE: 1) Calculate the greatest integer not algebraically exceeding a real x (ENTIE); 

2) Round a real x to the nearest integer; if half way between two integers, select 



the algebraically larger integer (.RND). 
PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



ENTIE 
.RND 



None 



DLD x 

JSB .RND (or ENTIE) 

->■ result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTE 1: 



ENTIE 


.RND 


Real 


Real 


Two integers: sign in A; integer in B 


Integer in A 


Not callable 


Not callable 


Not callable 


Not callable 


Intrinsic Function: ENTIER U) 


Not callable 


See Note 1 


See Note 1 



If exponent >15, then overflow is indicated as follows: 

If x >_ then A = 32767 
else A = -32768 

Result: Integer in A 
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ENTIX 



PURPOSE: Calculate ENTIER of extended real x: 

y = ENTIER (x) = greatest integer not algebraically exceeding x. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY POINTS: 


ENTIX 




-XENT 


Extended Real 




Extended Real 


Extended Real 




Extended Real 


Callable 




Not Callable 


Callable 




Not Callable 


Callable as real 


procedure 


Not Callable 


None 




None 
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EXP 



PURPOSE: 



Calculate e , where x is real, 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



EXP 



.ZPRV, .CMRS, .PWRZ, .FMP, 
.FSB, .FAD, .FDV 



DLD x 

JSB EXP 

JSB ERR0 (error) 

-* [y in A & B) 



METHOD: , , N 7 , , » 

EXP(x) = r * 2 where z x/ln(2)-N. 

N is chosen as the closest integer to x/ln(2). 

The Following Formula is used: 

EXP U) = 2 H+1 * (0.5 + -* 7 ) 



where 



A = 5.7708162 
B = .05761803 



A-y+B*y 



y = 2*(x/ln(2)-i0 

y is in the range [-1.+1] 



ATTRIBUTES: 



ENTRY POINTS: 



NOTE: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



EXP 


Real : A 


& B 




Real : A 


& B 




Function: 


EXP 


U) 


Function: 


EXP 


(x) 


Intrinsic 


Procedure: EXP (x) 


x*log e . 


127 ■* (07 OF) 



If x < -129*log (2), underflow occurs. A zero will be returned with no error 
indication. 
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FADSB 



PURPOSE: 



.FAD: Add real x to y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



.FSB: Subtract real y from x 

z = x - y 



ROUTINE IS: P 



•FAD, .FSB 



.PACK, .ZPRV 



DLD x 

FAD (FSB) y 

■* result in A&B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.fad 




.FSB 


Real 




Real 


Real 




Real 


Not callable 




Not callable 


Not callable 




Not callable 


Not callable 




Not callable 


See Note 1 




See Note 1 



NOTES: 



If the result is outside the range of representable floating point 
numbers [ -2 127 , 



result 2 127 (l-2" 23 ) is returned 



2 127 (l-2" 23 )] the overflow flag is set and the 



If an underflow occurs, (result 

-1 29 
2 ) excluding 0), the overflow 

flag is set and the result is returned. 



within the range (-2~ 129 (l+2~ 22 ) 
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FLOAT 



PURPOSE: 



Convert integer i to real x 



PROGRAM TYPE =6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: P 



FLOAT 



.PACK, .ZPRV 



LDA J 

JSB FLOAT 

-> (x in A & B) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



FICIAT 


Integer: 


A 




Real : A & B 


Function: 


FLOAT 


(x) 


Function: 


FLOAT 


(J) 


Not callc 


ble 




None 
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IABS 



PURPOSE: Calculate absolute value of integer j. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



IABS 



.ZPRV 



LDA J 

JSB IABS 

•*■ result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IABS 


Integer: 


A 




Inteqer: 


A 




Function: 


IABS 


(I) 


Function: 


IABS 


(I) 


Not Callable 


NOTE 1 



NOTE: 1. Note that if IABS is (-32768), the result is 32767 and the overflow bit 
is set. 
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IAND 



PURPOSE: Take the logical product and integers J and j. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IAND 



None 



JSB IAND 

DEF x 

DEF j 

-*• result in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


IAND 


Integer 


Integer in A 


Function: IAND (j,j) 


Function: IAND (j,j) 


Not callable 


None 
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IDIM 



PURPOSE: Calculate the positive difference between integers J & J 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



METHOD: A = I-min(x,j) 



IDIM 



.ZPRV 



JSB IDIM 

DEF *+3 

DEF I 

DEF J 

■*■ result in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


IDIM 


Integer 


"n A 








Integer 


Callable 


Function 


: IDIM 


U,J 


) 




Callable 


as in 


teqer 


procedure 




NOTE 1 



NOTE: 1. If IDIM(x,j) is out of range, the overflow bit is set and a 
value of 32767 returned. 
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IDINT 



PURPOSE: 



Truncate an extended real X 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =6 



ROUTINE IS: P 



IDINT 



IFIX, .ZPRV, SNGM 



JSB IDINT 
DEF *+2 
DEF x 
-* result in A 



METHOD: A = largest integer <x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IDINT 


Extended Real 


Integer in A 


Callable as function 


Function: IDINT (x) 


Callable as inteqer procedure 


If IDINT (x) is out of range, then result = 
bit is set. 


= 32767 and the overflow 
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IF1X 



PURPOSE: Convert a real x to an integer 

j = SIGN(x), (largest integer <|x|), or j 

PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 


POINTS 


EXTERNAL 


REFERENCES 


CALLING 


SEQUENCES 



IFIX (P) 



Non-floating point libraries: .FLUN 
Floating point library: .ZPRV 
(See note 2) 



DLD x 

JSB IFIX 

-* result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IFIX 


Real : A & 


B 




Inteqer: 


A (See Note 1) 


Function: 


IFIX 


(x) 


Function: 


IFIX 


(x) 


Not callable 


None 



NOTES: 



1. Any fractional portion of the result is truncated. If the integer 

15 
portion is greater than or equal to 2 , the result is set to 32767. 

2. The routine IFIX exists only in non-floating point libraries. 



2-46 



INT 



PURPOSE: 



Truncate a real x to an integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



INT 



IFIX 



DLD x 

JSB INT 

->■ result in A 



METHOD: result = (sign of x)*(largest integer 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



INT 


Real 


Integer 


Not callable 


Function: INT (x) 


Not callable 


If INT U) is out of range, the overflow bit is set. 
The result is set to 32767. 
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IOR 



PURPOSE: T^e logical inclusive - or of integers i and J. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IOR 


None 


JSB IOR 






DEF J 






DEF J 






-i- result 


in 


A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IOR 


Integer 


Integer 


Function: 


IOR (j 


.J) 


Function: 


IOR (j 


J) 


Not calk 


ble 




None 



2-48 



ISIGN 

PURPOSE: Calculate the sign of z times the absolute value of j, where z is real or integer 
and i is integer: y=sign(z)*| j| 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



Same as SIGN 



ISIGN 



.ZPRV 



JSB ISIGN 

DEF i 

DEF z 

-> result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ISIGN 


Real (or 


int) & 


integer 


Integer: 


A 




Function 


ISIGN 


{1,2) 


Function 


ISIGN 


(J,z) 


Not callable 


None 
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IXOR 



PURPOSE: Perform integer exclusive OR 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IXOR 


None 


JSB ] 


XOR 






DEF 


*+3 






DEF 


INTA 






DEF 


INTB 






-s- result 


in 


A 



METHOD: 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


IXOR 


INTEGER 


INTEGER 


Callable as a function: 


IXOR (INTA, INTB) 


Callable as a function: 


IXOR (INTA, INTB) 


Callable as a function: 


IXOR (INTA, INTB) 


None 



NOTES: 



COMMENTS: 



2-50 



MOD 



PURPOSE: Calculate the integer remainder of x/J for integer i & J; 

result = r modulo j 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



MOD 



.ZPRV 



JSB MOD 

DEF *+3 

DEF I 

DEF J 

■+ result in A 



result = j - [The truncated value of j/j]*j 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



MOD 


Integer 


Integer 


Callable 


as function 




Function. 


MOD (i,j) 




Part of 1 


anguage: I MOD 


J i 


If J = 0, 


then result 


= i 
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MXMND 



PURPOSE: Calculate the maximum or minimum of a series of extended real values: 
y = max {a,b,c, ) y = min (a,b,c, ) 



PROGRAM TYPE = 7 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



DMAX1 
DMIN1 



.XSUB 
.DFER 



JSB DMAXl(or DMIN1 ) 

DEF *+w+2 

DEF Y (result) 

DEF A (1) 

DEF b (2) 

DEF x (w) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



DMAX1 


DMIN1 


Extended Real 


Extended Real 


Extended Real 


Extended Real 


Callable as Subroutine 


Callable as Subroutine 


Note 1 


Note 1 


Note 2 


Note 2 


If n < 2, then y = 


If n < 2, then y = 



NOTES: 1. Intrinsic functions: DMAX1 {a,b,c, ) 

DMIN1 \a,b,c, ....) 

2. Callable as a real procedure, but only with a fixed number of parameters. 



COMMENTS: Requires at least two parameters. 
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MXMNI 



PURPOSE: 



Calculate the maximum or minimum of a series of integer values: 
y = MAX {a,b,c, ) y = MIN (a,b,c, ) 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



AMAX0, MAX0, AMIN0, MIN0 



FLOAT 



JSB Entry Point 
DEF *+W+l 

DEF a (1) 
DEF b (2) 

DEF x (n) 

■* Result in A or A & B 



ATTRIBUTES: 



ENTRY POINTS: 



AMAX0 


MAX0 


AMIN0 


MIN0 


Integer 


Integer 


Integer 


Integer 


Real 


Integer 


Real 


Integer 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 2 


Note 2 


Note 2 


Note 2 


Note 3 


Note 3 


Note 3 


Note 3 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors __ 

NOTES: 1. Functions: AMAX0 {a,b,c ), MAX0 (a,b,c ) AMN0 (a,b,c ), MIN0 {a,b,c ) 

2. Callable as integer or real procedure, but only with a fixed number of parameters. 

3. If the number of parameters is less than 2, y = 0. 



COMMENTS: Requires at least two parameters. 
AMAX0 provides a real maximum. 
MAX0 provides an integer maximum. 
AMIN0 provides a real minimum. 
MIN0 provides an integer minimum. 
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MXMNR 

PURPOSE: Calculate the maximum or minimum of a series of real values: 
y = Max (a,b,c ) y = Min {r,b,c ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



AMAX1, MAX!, AMIN1 , MINI 



IFIX, .FSB 



JSB Entry Point 
DEF *+ n + 1 
DEF a (1) 
DEF b (2) 

DEF x (n) 

■* y in A or A & 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



AMAX1 


MAX1 


AMIN1 


MINI 


Real 


Real 


Real 


Real 


Real 


Integer 


Real 


Integer 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 1 


Note 2 


Note 2 


Note 2 


Note 2 


Note 3 


Note 3 


Note 3 


Note 3 



NOTES: 



1. Functions: AMAX1 (a,b,c, ), MAX1 {a,b,c, ), 

AMIN1 (a,b,c, ....), MINI \a,b,c, ....). 

2. Callable as integer or real procedure, but only with a fixed number of parameters. 

3. If the number of parameters is less than 2, y = 0. 



COMMENTS: 



Requires at least two parameters. 
AMAX1 provides a real maximum. 
MAX1 provides an integer maximum. 
AMIN1 provides a real minimum. 
MINI provides an integer minimum. 
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REAL 



PURPOSE: Extract the real part of a complex x. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



REAL 



.ZPRV 



JSB REAL 
DEF *+2 
DEF x 
■* result in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


REAL 


Complex 


Real 


Callable 


as 


Function 






Function 


REAL (x) 






Callable 


as 


real procedure 






None 
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SIGN 



PURPOSE: Calculate the sign of z times the absolute value of x, where z is real or integer 
and x is real; if z = 0, then the result equals abs (x) unless used under the 
RTE-II, III or IVA operating system in which case the result equals 0. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



SIGN 



. .FCM, .ZPRV 



JSB SIGN 

DEF x 

DEF z 

■*■ (result in A & 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



SIGN 


Real or 


Integer 


and 


Real 


Real 


Function 


SIGN 


(*, 


z) 


Function 


SIGN 


(x. 


z) 


Not callable 


None 
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SIN 



PURPOSE: 



See .SNCS 
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SNGL 



PURPOSE: Convert an extended real x to a real y. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



SNGL 


.ZPRV 


JSB SNGL 






DEF *+2 






DEF x 






■*■ y in A 


& 


B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



SNGL (See 


note 1 ) 
















Extended 


Real 
















Real 


Callable 


Function 


SNGL (*) 
















Callable 


as Real Procedure 
















If x > (1-2' 
then y = (1- 


■ 23 127 

)*2 (the maximum real 

-2" 23 )*2 127 , and the overfl 


number), 
ow bit is 


set 



Note: The routine is available in firmware. 
See description of FFP on page 1-6. 
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SNGM 



PURPOSE: Convert a extended real x to a real y without rounding. 

kklxl 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 


ROUTINE IS: P 


SNGM 


.ZPRV 




JSB SNGM 




DEF *+2 




DEF x (extended precision 3-word 
parameter) 




+ y in A & B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



SNGM 


Extended Real 


Real 


Callable 


Function: SNGM (x) 


Callable as Real Procedure 


If y < ABS ((-1+2" 23 ) *2" 128 ), zero is returned 



NOTE: 1. Maximum error will be less than the least significant bit. 
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SQRT 



PURPOSE: Calculate the square root of a real x-. y = J~x 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



SQRT 


.ZPRV, 


.FLUN, .PWR2, .FMP, 


.FAD, 


.FDV 


OLD x 

JSB SQRT 

JSB ERR0 (error) 

■*• (y in A and B) 



The range is reduced to [.5, 2) using the identity: 
SQRT (x) = 2 N * SQRT (x/2 2N ) 



The initial approximation is 

XO = A * y + B with y = x/2 



2N 



where A = .5901621 
B = .4173076 
For y in [.5,1) 



A = .4173076 
B = .5901621 
For y in [1,2) 



Heron's rule is then applied twice: 



2*X1 = XO + -X-and 4*X2 = 2*X1 



70" 

SQRT (x) = (4*X 2 )*2 



+ i^ 



(N-2) 



2*X1 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


SORT 


Real : A & B 


Real : A & B 


Function: SORT (x) 


Function: SORT (x) 


Intrinsic Procedure: 


SQRT (x) 


x < ->■ (03 UN) 
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TAN 



PURPOSE: Calculate the tangent of a real x (radians): y = tangent (x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 






ROUTINE IS: R 


TAN 




.ZPRV, .CMRS, .FMP, 


. FAD, 


.FDV 


DLD x 

JSB TAN 

JSB ERR0 (error) 

->■ (y in A & B) 



x is reduced to the range U/4, it/4) using the identities: 

TAN(x) = TAN(x + K*tt) 
TAN(x) = -1 / TAN (x + tt/2) 

Then the Following Formula is used: 

TAN(at) = y*(A + B + (y 2 +-^~ 9 )) 

D+y^ 

y=x*(4/ir) 
where: A = .14692695 C = -1279.5424 

B = .0019974806 D = -4.0030956 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


TAN 


Real Radians: A anc 


B (Radians) 






Real : A 


and B 










Function: 


TAN (x) 










Function: 


TAN {x) 










Intrinsic 


Procedure: 


TAN 


(*) 






X outside 


[-8192*7r, 


+8191. 


75*TT] -* 


09 


OR 
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TANH 



PURPOSE: Calculate the hyperbolic tangent of a real x: y=TANH (x) 



PROGRAM TYPE =6 



ROUTINE IS: R 



ENTRY 


POINTS 


EXTERNAL 


REFERENCES 


CALLING 


SEQUENCES 



METHOD: 



TANH 


.ZPRV, 


EXP 


, .FAD 


.FSB, 


.FDV 


, .FMP 


DLD x 






JSB TANH 




+ (y in A 


and B) 



1. \x\ > 8: TANH (x) = SIGN (1.0.x) 

2. .5 < \x\ <8: TANH (x) = (EXP(2*x)-l)/(EXP(2*x) + 1) 

3. \x\ < .5: TANH {x) = x * (A + 



x 2 + C 



where: 

A = .16520923 
B = 2.0907609 
C = 2.5046337 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



TANH 


Real : A and B 


Real : A and B 


Function: TANH (x) 


Function: TANH (*) 


Intrinsic Procedure: 


TANH U) 


None 
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DPOLY 



PURPOSE: Evaluate the quotient of two polynomials in double precision 



PROGRAM TYPE = 7 



ROUTINE IS:U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



DPOLY, TRNL 


.ENTR, .CFER, .TADD, .TSUB 


, .TMPY, .TDIV, .4ZR0 


JSB DPOLY 

DEF *+6 

DEF <result> 

DEF <argument> 

DEF coefficient list> 

DEF <order of numerator> 

DEF <order of denominator 


OR JSB DPOLY 
OCT <Flags> 
DEF <result> 
DEF <argument> 
DEF <coefficient list> 
DEF <order of numerator> 
DEF <order of denominator> 



Horner's rule is used. If the order of the denominator is zero, the denominator's 
value is one; the divide is not done. In this case, TRNL acts as a polynominal 
evaluator. If bit 15 of the flag word of the call is set, the polynomials are 

2 
evaluated in X instead of X and: 



Bit 14=1: The numerator is subtracted from the denominator before the 
divide (N>0 only). 

Bit 0=0: The quotient is multiplied by X. 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 









ENTRY 


POINTS: 


DPOLY 


Double real 


(last two 


parameters are integer) 


Double real 


Not callable 


Function: Z= 


=DPOLY(X,C,M,N) 






Not callable 


None 



NOTES: 



1) The coefficients must be presented in the order used, i.e., for: 

M M-1 

P M X +P M-1 X + ••• +P 1 X+P 



X N + Q N _ 1 X N " 1 + ... + QjX + Q 

The coefficient array must be: 

P M' p M-i' •••' P l' P 0' %-l' '" Q r Q 
If m = 0, Q n = 1.0 and need not be supplied. 

2) This routine may alter the X and Y registers. 

3) Since bit 15 of the flag word must be set to enable any options, these 
options are not FORTRAN callable. 
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XADD 

PURPOSE: Interface routine to allow FORTRAN II to use the FORTRAN IV 
Extended Real addition, .XADD. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XADD 


.RCNG, .XADD 


JSB XADD 


DEF *+4 


DEF 2 (result) 


DEF x 


DEF y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



XADD 


Extended 


Real 


Extended 


Real 


Callable 


Not Appli 


cable 


Not Appli 


cable 


See XADSB 



2-64 



XADSB 



PURPOSE: Extended real addition and subtraction: z = x + y 



z = x - Y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



.XADD 
.XSUB 



.XPAK, ADRES .ZPRV 



JSB(.XADD or .XSUB) 
DEF z (result) 
DEF x 
DEF y 



ATTRIBUTES: 



NOTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

1. 





ENTRY POINTS: 


.XADD 


.XSUB 


Extended Real 


Extended Real 


Extended Real 


Extended Real 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


Note 1 


Note 1 



If z > 


2 127 (1 


39 
-2 ), overflow is set and 


z = 


2 127 


(1 


-2- 39 ). 


If z < 


_ 2 IW 


overflow is 


set and z = 


-2 


\1) 








If < 


z < 2 , overflow 


is set and z = 


0. 








If -2" 


129 d + 


2 ) < z < 


(3, overflow 


is 


set and 


z 


= 0. 



2. These routines are available in firmware. See description 

of FFP on page 1-6. 
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XDIV 



PURPOSE: Interface routine which allows FORTRAN II programs to use Extended Real Divide 
routine .XDIV. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XDIV 


.RCNG, .XDIV 


JSB XDIV 


DEF *+4 


DEF z (result) 


DEF x 


DEF y 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



XDIV 



Extended Real 



Extended Real 



Callable 



Not Applicable 



Not Applicable 



See XADSB 



ENTRY POINTS: 



NOTES: See notes for XADSB 
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XMPY 

PURPOSE: Interface routine which allows FORTRAN II programs to use FORTRAN IV 
Extended Real multiply routine .XMPY. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XMPY 


.RCNG, 


.XMPY 


JSB XMPY 
DEF * + 4 
DEF z (result) 
DEF x 
DEF y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE: 



XMPY 


Extended 


Real 


Extended 


Real 


Callable 


Not Appli 


cable 


Not Appli 


cable 


See XADSB 



This routine is available in firmware. See description 
on page 1-6. 



2-67 



XPOLY 



PURPOSE: Evaluate extended real polynomial: y = c x"~l + c/" + ...+c ,x + c 

r J 1 2 n-\ n 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



.XPLY 
XPOLY 



.ZRNT, .ENTP, .XADD, .XMPY, .DFER, 



JSB .XPLY or XPOLY 

DEF * + 5 

DEF y (result) 

DEF n (degree + 1) 

DEF x 

DEF c (first element of coefficient array) 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE: 





ENTRY 


POINTS: 


.XPLY 




XPOLY 


Extended Real, Integer 




Extended Real , Integer 


Extended Real 




Extended Real 


Not callable 




Callable 


Not callable 




Callable 


Not callable 




Callable 


If «5 0, y = 




If n< 0, y = 



See notes for XADSB. 
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XSUB 

PURPOSE: Interface routine which allows FORTRAN II programs to use the FORTRAN IV 
routine XADSB to do Extended Real subtraction. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XSUB 


.RCNG, .XSUB 


JSB XSUB 


DEF *+4 


DEF 2 (result) 


DEF x 


DEF y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



XSUB 


Extended 


Real 


Extended 


Real 


Callable 


Not AppV 


cable 


Not AppV 


cable 





2-69 



.ABS 



PURPOSE: Finds the absolute value of a double real, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =7 



ROUTINE IS: U 



.ABS 


.CFER, .TSUB, 4ZR0, 


.ENTR 


JSB .ABS 
DEF *+3 
DEF <result> 
DEF x 

-*- 



METHOD: 



ATTRIBUTES: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.ABS 



Double real 



Double real 



ENTRY POINTS: 



Not callable 



Function: DABS (with y option) 



Not callable 



None 



NOTES: 



See ..KM 



2-70 



.ATAN 



PURPOSE: Calculate the inverse tangent of double real x 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.ATAN 



TRNC, .TDIV, ..TCM, 
.ENTR, CRER, .FLUN, .TSUB, /ATCG 



JSB .ATAN 
DEF *+3 
DEF <result> 
DEF x 



METHOD: The following identities are used to reduce the range of X to [-.414213, + .414213] 



IDENTITY RANGE USED 

ATAN(X) = -ATAN(-X) [-INF.-.414] 

ATAN(X) = PI/4 - ATAN((1-X)/(1+X)) [.414,2.414] 

ATAN(X) = PI/2 - ATAN(1/X) [2.414,+INF] 

on this range, the following approximation is used: 

C1+XSQ*(C2+XSQ*(C3+XSQ*(C4+XSQ*C5) ) ) 



ATAN(X) 



X 



C6+XSQ*(C7+XSQ*(C8+XSQ*(C9+XSQ))) 



WHERE: 

CI = +.445452376106737266D2 
C2 = +.774832800120330864D2 
C3 = +.409713682601679458D2 
C4 = +.666072298720980281D1 
C5 = +.158970310916497573D0 
C6 = +.445452376106737267D2 
C7 = +.923316925489242028D2 
C8 = +.628395515876957856D2 
C9 = +.155045070449078784D2 
XSQ = X*X 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 









ENTRY 


POINTS: 


.ATAN 


Double real rad 


ans 








Not callable 


Function: DATAN 


(with 


Y 


option) 




Not callable 


None 


None 











NOTES: 



2-71 



.ATN2 



PURPOSE: Calculate the arctangent of the quotient x/y of two double real 
variables x and y 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.ATN2, .ATA2 



.ATAN, .TADD, .TSUB, .TDIV, .ENTR, .4ZER0, .CFER 



JSB .ATN2 

DEF *+4 

DEF <result> 

DEF x 

DEF y 

<error return> 

-►normal return 



METHOD: 



The signs of x and y are used to place the result in the proper quandrant. 



ATTRIBUTES: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 











ENTRY 


POINTS: 


.ATN2, 


.ATA2 










Double 


real 










Double 


real (radians) 








Not ca 


liable 










Functi 


on: DATN2 


or DATAN2 


(with Y 


option) 


Not ca 


liable 










x = y 


= gives 


error 


code 


15 UN 





NOTES: 



2-72 



.BLE 



PURPOSE: Convert real to double real. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS:U 



.BLE 


.ENTR 


JSB 


.BLE 




DEF 


*+3 




DEF 


<resu 


lt> 


DEF 


X 




-> 







METHOD: 



ATTRIBUTES: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



ENTRY POINTS: 



.BLE 



Real 



Double Real 



Not callable 



Function: DBLE (with y option) 



Not callable 



None 



NOTES: 



2-73 



.CADD 



PURPOSE: Add complex x to complex y: z = x + y (z is complex) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



.CADD 



.ENTC, .ZRNT, .FAD 



JSB .CADD 
DEF z (result) 
DEF x 
DEF y 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 


.CADD 


Compl ex 


Compl ex 


Not callable 


Not callable 


Not callable 


Overflow bit set if result out of range. 



Note: See OVF function for testing results. 
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.CDBL 

PURPOSE: Extracts the real part of a complex x and returns it as an 
extended precision real y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


.CDBL 


DBLE 


JSB .CDBL 

DEF y (DP result) 

DEF x (complex) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.CDBL 


Complex 


Extended Real 


Not callable 


Nnt callable 


Not callable 


Nnnp -- , ■ ... 
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.CDIV 



PURPOSE: Divide complex x by complex y. z = x/y 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CDIV 


.ZRNT, 


'.ENTC, 


JSB .CDIV 


DEF z 


(result) 


DEF x 




DEF y 




-*■ 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 













ENTRY 


POINTS: 


.CDIV 


Complex 


ComDlex 


Not call 


able 














Not callable 


Not call 


able 














Overflow 


bit 


set 


if 


result 


out 


of 


range. 
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.CFER 



PURPOSE: Moves four words from address x to address y. 
a complex x to complex y. 



Used to transfer 



PROGRAM TYPE = 6 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CFER 


.ZPRV 


JSB .CFER 










DEF y 










DEF x 










->- 










A = direct 


address 


of 


u 


+4) 


B = direct 


address 


of 


(y 


+4) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.CFER 


Compl ex 


Compl ex 


Not callable 


Not callable 


Not callable 


None 
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.CHEB 

PURPOSE: Evaluate the Chebyshev series at a real x for a particular table of coefficients c. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



T i= 2 



where 



PROGRAM TYPE = 6 




ROUTINE IS 


!: R 


.CHEB 


.ZRNT, .FAD, .FMP, .FSB 


DLD x 

JSB .CHEB 

DEF c (table, note 1) 

->• result in A & B 



T i-1 " T i-2 + c n-i (i = 0,1, 



T -2 - T -l " ° 

n = number of coefficients 



Answer 



'n-1 



'n-3 



,n-l) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.CHEB 


Real 


Real 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



NOTE: Table c consists of a series of real coefficients terminated by an integer zero. 
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.CINT 



PURPOSE: Convert the real part of a complex x to an integer. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CINT 



IFIX 



JSB .CINT 
DEF x 
-►result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.f.TNT 


Complex 


Integer in A 


Not callable 


Not callable 


Not callable 


None 
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.CMPY 



PURPOSE: Multiply complex x by complex y. z 



x . Y 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CMPY 


.ZRNT, 


.ENTC, 


JSB .CMPY 


DEF z 


(result) 


DEF x 




DEF y 




-> 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 


.CMPY 


Complex 


Complex 


Not cal Table 


Not callable 


Not callable 


Overflow bit set if result out of range. 
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.CMRS 



PURPOSE: Reduce argument for SIN, COS, TAN, EXP 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



METHOD: 



.CMRS 



.ZPRV, .XMPY, .XSUB, SNGL, IFIX, FLOAT 



DLD x 

JSB .CMRS 

DEF CONST 

DEF N 

-»■ error return 

-»• normal return 



(real) 

[extended precision) 
{integer, also result) 

(real result in A and B) 



The argument is converted to extended precision and multiplied by the constant. 
The nearest even integer, N, to this value is found. N is then converted to 
extended precision and subtracted from the above product. The result is rounded 
to single precision. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.CMRS 


Real 








Real and extended 


precision 






Not callable 


Not callable 


Not callable 


N outside [-2 ib ,2 


) gives 


error 


return 



NOTES: 



2-81 



.CSUB 



PURPOSE: Subtract complex y from complex x: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.CSUB 


.ENTC, 


.ZRNT, 


JSB .CSUB 


DEF z 


(result) 


DEF x 




DEF y 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 













ENTRY 


POINTS: 


.CSUB 


Complex 


Complex 


Not call 


able 














Not call 


able 














Not call 


able 














Overf 1 ow 


bit 


set 


if 


result 


out 


of range. 
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.CTBL 



PURPOSE: Convert a complex real to a double real, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =7 



ROUTINE IS: U 



.CTBL 



.BLE 



JSB .CTBL 
DEF <result> 
DEF <argument> 



METHOD: The real part of the argument is converted to double real using .BLE. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.CTBL 



Complex real 



Double real 



Not callable 



Not callable 



Not callable 



None 



NOTES: 



2-83 



.CTOI 

PURPOSE: Raise a complex x to an integer power i: z = x 1 (z is complex) 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



See .RTOI 



ROUTINE IS: R 



.CTOI 



.CMPY, .CDIV, .CFER, .ENTC, .ZRNT 



JSB .CTOI 

DEF z (result) 

DEF x 

DEF j 

-+• Error Return 

-> Normal Return 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.CTOI 


Complex & in1 


:eger 


Complex 


Not callable 


Not callable 


Not callable 


x = 0, I<0 ■+ 


(14 UN) 
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DCPX 



PURPOSE: Converts an extended real x to a complex y. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DCPX 


Extended real 


Compl ex 


Not callable 


Not callable 


Not callable 


None 
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.DFER 



PURPOSE: Extended real transfer: y = x,- three word move. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 




ROUTINE IS: P 


.DFER 


.ZPRV 




JSB .DFER 






DEF y 






DEF x 






-> 






A = direct address of x+3 






B = direct address of y+3 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

Note: 



ENTRY POINTS: 



.DFER 



Extended Real 



Extended Real 



Not callable 



Not callable 



Not callable 



None 



This routine is available in firmware (see note on pg. 1-6) 
.DFER (2100 MICROCODE) returns x+A, y+4 in A,B registers 
.DFER (21MX MICROCODE) returns *+3, y+3 in A,B registers. 



2-86 



.DINT 



PURPOSE: Converts a double real x to an integer. | result |<|x| 



PROGRAM TYPE =6 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



. DINT, .XFTS 



SNGM, IFIX, .ZPRV 



JSB .DINT 

DEF x 

■* result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DINT 


Double Real 


Integer in A 


Not callable 


Not callable 


Not callable 


None 



2-87 



.DIV 



PURPOSE: DOS-Ill routine to replace the subroutine call with the hardware instruction 
to divide a two-word integer j by the one-word integer j.- k = i/j 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.DIV 



.MAC. 



DLD j 

JSB DIV 

DEF j 

■+ result in A, remainder in 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 




.DIV 


Two-word integer (Note 1), integer 


Integer quotient in A and remainder in B 


Not callable 


Not callable 


Not callable 


-32768 > quotient > 32767 -> overflow, quotient «- 


32767 



NOTES: 1. 



2. 



The DLD loads the two-word value I into the A and B registers with 
the sign and 15 most significant bits in B and the least significant 
bits in A. 

Since the subroutine call is replaced by the hardware instructions, 
the routine is entered only once for each subroutine call. 



2-88 



.DLD 



PURPOSE: DOS-Ill routine to replace the subroutine call with the hardware instruction to 

load the contents of memory locations x and x+1 into the A and B registers, 

respectively. 

PROGRAM TYPE = 7 ROUTINE IS: U 

ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.DLD 


.MAC. 


JSB .DLD 
DEF x 


or 


DLD x 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DLD 



Two-word quantity 



Two-word quantity: A & B 



Not callable 



Not callable 



Not callable 



None 



NOTES: Since the subroutine call is replaced by the hardware instruction, 
the routine is entered only once for each subroutine call. 
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.DST 



PURPOSE: DOS-Ill routine to replace the subroutine call with the hardware instruction to 

store the contents of the A and B registers in memory locations x and x+i, 

respectively. 

PROGRAM TYPE = 7 ROUTINE IS: U 

ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY POINTS: 


.DST 


Two-word quantity: 


A & B 




Two-word quantity 


Not callable 


Not callable 


Not callable 


None 



NOTES: Since the subroutine call is replaced by the hardware 
instruction, the routine is entered only once for each 
subroutine call . 



2-90 



.DTOD 



PURPOSE: Raise a double real x to a double real power i\- 
z = x Y (z is double real ) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



ROUTINE IS: R 



■ DTOD 



DEXP, DLOG 

.XMPY, .DFER, .ENTC, .ZRNT 



JSB .DTOD 

DEF z (result) 

DEF x 

DEF y 

-* error return 

-> normal return 



If x = and r>0, z = 0. 

If x f and y = 0, z = 1. 

If x>0 and y/0, z = EXP(r*log(x)) 

Accuracy depends on the accuracy of DLOG and DEXP. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DTOD 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


Note 



NOTE: x = 0, Y<p ^ (13 UN) 

x<0, y?*0 h. (13 UN) 

x>(l-2" 39 )2 127 - (10 OF) 



2-91 



.DTOI 



PURPOSE: Calculate an extended real x raised to an integer power i: 
y = x 1 (y is extended real) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 



See .RTOI 



ROUTINE IS: R 



.DTOI 



.XMPY, .XDIV, .DFER, .ZRNT 



JSB .DTOI 

DEF y (result) 

DEF x 

DEF j 

■*■ Error return 

-+ Normal return 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.DTOI 


Extended real & integer 


Extended real 


Not callable 


Not callable 


Not. rallahle 


If x = 0, J <.0 ->- (12 UN) 



2-92 



.DTOR 



PURPOSE: Raise a double real x to a real power Y: 

z = x Y (z is double real) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.DTOR 



.DTOD 
DBLE 



JSB .DTOR 

DEF z (result) 

DEF x 

DEF y 

-*■ error return 

-> normal return 



Convert y to double precision and call .DTOD. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DTOR 


Real 


& double real 


Double real 


Not 


callable 


Not 


callable 


Not 


callable 


See 


.DTOD 



2-93 



.EXP 

PURPOSE: Calculate e x where x is double real 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE =7 



ROUTINE IS: U 



.EXP 



.ENTR, .CFER, .4ZR0, /CMRT, /EXTH 



JSB .EXP 

DEF *+3 

DEF <result> 

DEF x 

<error return> 



N 2 
The range is reduced to [-.5, .5] using the identity EXP(X) = 2 x 2 



where Z = mj) 
compute 2 N x2 Z . 



- N and N is chosen to minimize |Z|. Then /EXTH is called to 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


.EXP 


Double real 


Double real 


Not callable 


Function: DEXP 


(with 


Y option) 






Not callable 


x > 127*LN(2) 


gives 


error 


code 


07 


OF 



NOTES: For x < -129*LN(2), a zero will be returned with no error indication. 



2-94 



.FDV 



PURPOSE: 



Divide real x by y: z = x/r 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 


ROUTINE IS: P 


.FDV 


.PACK, .ZPRV 


DLD x 




JSB .FDV 




DEF Y 




■* quotient in A & B - set if under/overflow 





ATTRIBUTES: 

Call 

Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.FDV 


Real 


Real 


Not 


callable 


Not 


callable 


Not 


callable 


See 


FADSB 



2-95 



FLUN 



PURPOSE: 



"Unpack" a real x; place exponent in A, lower part of mantissa in B. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 




ROUTINE IS: P 


.FLUN 


.ZPRV 


DLD x 

JSB .FLUN 

-> exponent in A 

Lower mantissa in B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE: 



.FLUN 


Real 


A & B 


Not callable 


Not callable 


Not callable 


None 



This routine is available in 21MX FFP. 
on page 1-6. 



See note 



2-96 



.FMP 



PURPOSE: 



Multiply real x by v. z = x*y 



PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.FMP 



.PACK, '.ZPRV 



DLD y 

JSB .FMP 

DEF x 

■*■ product in A 



ROUTINE IS: P 



ATTRIBUTES: 

Call 

Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.FMP 


Real 


Real 


Not 


callable 


Not 


callable 


Not 


callable 


See 


FADSB 



2-97 



.FPWR 

PURPOSE: Calculates X for real X and unsigned integer I, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



. FPWR 



.FMP , FLOAT , .FLUN 



LDA J 

JSB .FPWR 

DEF x 

■* (result in A & B) 



The left-to-right binary method is used. The result is first set to x. 
Then for each bit after the highest bit set in I: 

a) square the result. 

b) if the current bit is set, multiply the result by the argument. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.FPWR 


Real , 


integer 


Real 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



NOTES: 



1) "I" must be in the range [2,32768]. 

2) If overflow occurs, the maximum positive number is returned with 
overflow set. Overflow is set if underflow occurs. 

3) The X and Y registers may be altered. 



2-c 



.ICPX 



PURPOSE: 



Converts an integer i to a complex r. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.ICPX 


Integer in A 


Complex 


Not callable 


Not callable 


Not callable 


None 



2-99 



IDBL 



PURPOSE: Converts an integer i to extended real y. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.IDBL, 


.XFTS 


FLOAT, 


DBLE 


LDA r 




JSB .IDBL 


DEF y 




-* 





ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.IDBL 


Integer in A 


Extended 


Not callable 


Not callable 


Not callable 


None 



2-100 



.IENT 



PURPOSE: 



Calculate the greatest integer not algebraically exceeding a 
real x: i = ENTIER (x). 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.IENT 



IFIX, .FLUN, 
FLOAT, .ZPRV 



DLD x 

JSB .IENT 

JSB error routine 

■* i in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


.IENT 


Real 


Integer 


Not callable 


Not callable 


Not callable 


EXPO (x) > 14, 


user 


must 


supply error 


routine 



2-101 



.ITBL 



PURPOSE: Convert integer to double real 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



■ITBL, .TFTS 



.BLE, FLOAT 



LDA x 

JSB .ITBL 
DEF <result> 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.ITBL 


Integer 


Double real 


Not call 


able 


Not call 


able 


Not call 


able 


None 



NOTES: 



2-102 



ITOI 



PURPOSE: 



Calculate i J for integer x and j: k = * 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.ITOI 


Integer 


Integer 


Not callable 


Not callable 


Not callable 



Condition 



Error Code 



I = 0, J <_ 
/>2 15 

or 
x J < -2 15 



08 UN 
(88 OF 



2-103 



.LBT 



PURPOSE: Replaces 21MX microcoded instruction LBT. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 




Bits to 7 of the location specified by X are loaded into bits to 7 of 
the A-reg. X must be a byte address. Bits 8 - 15 of A are cleared. The 
B register is incremented by 1. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.LBT 


Integer 


A 


Not callable 


Not callable 


Not callable 


None 



Note: A byte address is defined as two times the word address of the memory 

location containing the byte of data. If the byte is in bits to 7, bit 
of the byte address is set; if the byte is in bits 8 - 15, bit of the byte 
address is clear. 



2-104 



.LOG 



PURPOSE: Calculate the natural logarithm of double real'X 



PROGRAM TYPE =7 



ROUTINE IS:U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.LOG 



.ENTR, .CFER, .FLUN, .TADD, .TMPY, TRNL, /ATLG, FLOAT 



JSB .LOG 

DEF *+3 

DEF <result> 

DEF x 

<error return> 



METHOD: The identity: 

LN(X) = N*LN(2) + LN(X/LN(2)- N) 

Is used to reduce the range to [.707,1.414] 
approximation is used: 



LN(Y) 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



C1+ZSQ*(C2+ZSQ*C3) 
C4+ZSQ*(C5+ZSQ*(C5+ZSQ); 



on this range, the following 

WHERE: 

Y = reduced X 

Z = (1-Y) / (1+Y) 

CI = +.903435497728419518D2 

C2 = -.935961251529860988D2 

C3 = +.183395455436327320D2 

C4 = -.451717748864209816D2 

C5 = +.618553208719806812D2 

C6 = -.207538580906546412D2 

ZSQ = Z*Z 



ENTRY POINTS: 


.LOG 


Double real 


Double real 


Not callable 


Function: DLOG (with Y option) 


Not callable 


X < ■+ 02 UN 



NOTES: 



2-105 



.LOGO 



PURPOSE: Calculate the common (base 10) logarithm of double real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.LOGO (.LOGT) 



.LOG, .TMPY, .ENTR 



JSB .LOGO (.LOGT) 

DEF *+3 

DEF <result> 

DEF x 

<error return> 



METHOD: Y = L0G 10 (x) = L0G e (x) * L0G 1Q (e) 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 









ENTRY 


POINTS: 


.LOGO (or .LOGT) 


Double real 


Double real 


Not callable 


Function DLOGT (or 


DL0G10) 


(with 


Y option) 


Not callable 


x <_ gives error 


code 


02 


UN 





NOTES: 



2-106 



.MAC. 

PURPOSE: Replaces a JSB .subr with a machine language Macro jump 105nnn 
that initiates firmware. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.MAC. 


.subr 


NOP 
JSB 
OCT 
END 


.MAC. 
105nnn 








Where 


nnnis between 


000 


and 


377 



METHOD: Before execution of the subroutine jump to .subr, the program holds the 
standard calling sequence for the software subroutine .subr: 

JSB .subr 

DEF x 

etc. 
If .subr contains the .MAC. call as shown in the calling sequence above, 
the subroutine jump to the software subroutine .subr is replaced with 
the macro instruction that executes the .subr function in firmware: 

OCT 105nnn 

DEF x 

etc. 



ATTRIBUTES: 



ENTRY POINTS: 



.MAC. 


Address 


In-line 


code 


change 


Not callable 


Not call 


able 




Not call 


able 




None 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: The same result is achieved in RTE during system generation using a 
replace command. 



2-107 



.MANT 



PURPOSE: 



Extract mantissa of a real x 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



entry 




A- register 



B-register 



Bits 15 14 



Mantissa (most significant bits 
*--sign of mantissa 



Bits 15 



Mantissa (least 

sign, bits) 


Exponent 


s 



sign of exponent^ 



A-register : no change 

result ', Bits 15 

B-register 



Mantissa (least 

sign, bitsi 



zeroes 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.MANT 


Real 


Real 


Not Callable 


Not Callable 


Not Callable 


None 



2-108 



.MOD 



PURPOSE: Calculate the remainder of X/Y, where X,Y and result are double reals. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 








ROUTINE IS: U 


.MOD 




.CFER, .TSUB, 
.YINT, .ENTR, 


.TMPY, 
.4ZR0 


.TDIV 




JSB .MOD 
DEF * +4 
DEF <result> 
DEF X 
DEF Y 

->- 



METHOD: 



RESULT *■ X -[.YINT(X/Y)]*Y 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



NOTES: 



.MOD 


Double real 


Double real 


Not callable 


Function: DMOD 


(with 


Y 


opt 


ion) 


Not callable 


If Y=0 then the 


resu 


It 


is 


zero 



1) The function .MOD will return X if Y=0, or X/Y overflows or underflows. 

2) If an overflow or underflow occurs elsewhere in the calculation, the 
result will be incorrect. 

3) No attempt is made to recover precision lost in the subtract. 



2-109 



.MPY 



PURPOSE: DOS-Ill routine to replace the subroutine call with the hardware instruction 
to multiply integer i and j.- k = i*j 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.MPY 


.MAC. 


LDA j 
JSB .MPY 
DEF j 

•* k in A&B 


(Note 1) 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 







ENTRY 


POINTS: 


.MPY 


Integer 


Two-word integer 


(Note 1) 






Not callable 


Not callable 


Not callable 


None 



1. B contains most significant bits of product; 
A contains least significant bits. 



Since the subroutine call is replaced by 
the hardware instruction, the routine is 
called only once for each subroutine call. 



2-110 



.MXMN 



PURPOSE: Find the maximum (or minimum) of a list of double reals. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 








ROUTINE IS: U 




.MAX! 




MINI 






.CFER, . TSUB , 


.4ZR0 








JSB .MAXl 
DEF * + N+2 
DEF <result> 
DEF A(l) 
DEF A(2) 

DEF A(N) 




JSB .MINI 
DEF * + N+2 
DEF <result> 
DEF A(l) 
DEF A(2) 

DEF A(N) 





METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.MAXl 


.MINI 


Double reals 


Double Reals 


Double real 


Double real 


Not callable 


Not callable 


Function: DMA XI (with Y option) 


Function: DMINl(with Y option) 


Not callable 


Not callable 


None 



NOTES: 



If there is only one argument in the list, it is considered to be both 
the maximum and minimum of the list. 

If the list is null, zero will be returned. 



2-111 



.NGL 



PURPOSE: Convert double real to real. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =7 



ROUTINE IS:U 



.NGL 


SNGL, .CFER 


JSB .NGL 
DEF *+2 
DEF x 
-♦•result in A 


& 


B 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



NOTES: 



Parameters 
Res u 1 1 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.NGL 


Double real 


Real in A & B 


Not callable 


Not callable 


Not callable 


None 



The result is rounded unless this would cause overflow. If so, overflow is set 
and the result is truncated to the greatest positive number. 



2-112 



PACK 



PURPOSE: Convert signed mantissa of real x into normalized real format. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE 



.PACK 


Mantissa in A & B 


Real 


Not callable 


Not callable 


Not callable 


None 



This routine is available in 21 MX FFP. See note 
on page 1-6. 



2-113 



.PWR2 



PURPOSE: Calculate for real x and integer n-. y = x-2' 



PROGRAIVi TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



.PWR2 


.ZPRV 


DLD x 




J SB .PWR2 




DEF n 




-»■ y in A & 


B 



Exponent of x is increased by n. 
Accuracy is 23 bits. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 

Notes: 



.PWR2 


Real 


& Integer 


Real 


Not 


callable 


Not 


callable 


Not 


callable 


None 



This routine is available in 21 MX FFP firmware. 
See note on page 1-6. 



2-114 



RTOD 



PURPOSE: Raise a real x to a double real power Y: z=x (z is double real) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.RTOD 



.DTOD 
DBLE 



JSB .RTOD 

DEF z (result) 

DEF x 

DEF y 

■*■ Error Return 

-»■ Normal Return 



Convert x to double real and call .DTOD. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.RTnn 


Real 


and Double 


Real 


Double Real 


Not 


callable 




Not 


callable 




Not 


callable 




See 


.DTOD 





2-115 



.RTOI 

PURPOSE: Calculate x 1 for real x and integer i-. y=x i . 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.RTOI 



.FPW 


R, .FDV 


JSB 


.RTOI 


DEF 


X 


DEF 


I 


JSB ERR0 


-* y 


in A & 



METHOD: The only possibility of inaccuracy is that introduced by roundoff in the floating 
multiplies (and divide if j < 0). 



The left-to-right binary method is used (see .FPWR). If j < the result is 1.0/U" r ) 
In general, the result is slightly different (due to roundoff error) from 
x*x*x . . . *x 
i-l times 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.RTOI 


Real & Integer 


Real 


Not Callable 


Not Callable 


Not Callable 


Condition 
x = 0, j < 

Jx| >2 127 


Error Code 
06 UN 

(floating point overflow) 



2-116 



RTOR 



PURPOSE: Calculate x for real x and y.- z 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.RTOR 


ALOG, EXP, .ZRNT, 


.FMP 


JSB .RTOR 
DEF x 
DEF y 
JSB ERR0 

-* z in A & B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.RTOR 


Real 


Real 


Not callable 


Not callable 


Not callable 




Condition Error Code 




x = 0, y < ) 04 UN 




< 0, f ) 




|x*AL0G(x) | > 124 07 OF 




On error return, the overflow bit is set. 



2-117 



.RTOT 



PURPOSE: Calculate X , where X is a real and Y is a double real. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.RTOT 



.TTOT 



JSB .RTOT 
DEF <result> 
DEF x 
DEF Y 
<error return> 



x is converted to double real, then .TTOT is called. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.RTOT 


Real x , 


double 


real Y 


Double real 


Not callable 




Not call 


ible 




Not callable 


See note 



NOTES: 



Underflow will give a zero result, with no error. Overflow returns the 

greatest positive number, sets overflow (cleared otherwise), and gives 
an error code of 07 OF. 

If (x<0) or (x=0 and y<0) there will be an error code of 13 UN. 



2-118 



.SBT 



PURPOSE: Replaces 21MX microcoded instruction SBT. 



PROGRAM TYPE = 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 




Bits - 7 of the A-reg are copied into the location specified by X. X must 
be a byte address. The B register is incremented by 1. A-reg bits 8-15 are 
ignored. The A-reg is unchanged by this routine. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.SBT 


Integer 


A 


Not call 


able 


Not call 


able 


Not call 


able 


None 



Note: A byte address is defined as two times the word address of the memory 

location containing the byte of data. If the byte is in bits to 7, bit of 
the byte address is set; if the byte is in bits 8 - 15, bit of the byte 
address is clear. 



2-119 



.SIGN 



PURPOSE: Transfer the sign of a double real y to a double real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



METHOD: \ x \ , sign ( y ) 



.SIGN 



.CFER, .TSUB, 4ZR0, .ENTR 



JSB .SIGN 
DEF *+4 
DEF result 
DEF x 
DEF y 



ATTRIBUTES: 



ENTRY POINTS: 



NOTES: 



.SIGN 


Double reals 


Double real 


Not callable 


Function: DSIGN 


(with Y option) 


Not callable 


None 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



1) Overflow will be set or cleared depending on occurrence. (Overflow only occurs 
if y >_0 and x is the maximum negative number) 

2) .SIGN( x ,0)=M 



2-120 



.SNCS 



PURPOSE: Calculate the sine or cosine of real X (radians) 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



SIN 








COS 


.ZPRV, .CMRS, . 


.FCM, 


.FMP, 


.FAD 




DLD x 

JSB SIN 

<error return> 
->- y (in A & B) 








DLD x 
JSB COS 

<error return> 
■* y (in A & B) 



METHOD: The argument is reduced to the 
range [-tt/4,tt/4] using the 
identities: 



SIN(X)=SIN(X-2*K*tt) 

C0S(X)=C0S(X-2*K*tt) 

SIN(X)=-SIN(X-tt) 

C0S(X)=-C0S(X-ti) 

SIN(X)=C0S(X-ti/2) 

C0S(X)=SIN(X+tt/2) 



THEN 

the following approximations are used 

SINE(W) = X*(S1+XSQ*(S2+XSQ*(S3+XSQ*S4); 
COSINE(Z) = C1+YSQ*(C2+YSQ*(C3+YSQ*C4)) 



WHERE: 

X=W*(4/tt) 

Y=Z*(4/tt) 

XSQ = X**2 

51 = .78539816 

52 = -.0807454325 

53 = .002490001 

54 = -.000035950439 



YSQ = Y**2 
CI = 1.0 
C2 = -.30842483 
C3 = .015851077 
C4 = -.00031957 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



SIN 






COS 


Real (radians) 






Real (radians) 


Real 






Real 


Function: SIN(X) 






Function: COS(X) 


Function: SIN(X) 






Function: COS(X) 


Intrinsic proc. SIN(X) 




Intrinsic Droc. COS(X) 


X outside [-8192*it 


,+8191 


75* ti 1 -* 


050R 



NOTES: 
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.SQRT 



PURPOSE: Calculate the square root of double real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 






ROUTINE IS: U 


.SQRT 


.ENTR .CFER 
.XADD .XDIV 


.PWRZ 

.TADD 


.TDJV 
.SQRT 




JSB .SQRT 

DEF *+3 

DEF <result> 

DEF x 

<error return> 

-* 



METHOD: The initial approximation is (single prec.) X. = SQRT(y) 
The Heron's rule is applied twice: 
X 1= .5* (X +Y/X Q ) 
X 2 = .5* (Xj+Y/Xj) 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 







ENTRY 


POINTS: 


.SQRT 


Double real 


Double real 


Not callable 


Function: DSQRT (with Y 


option) 




Not callable 


X < gives error 


code 


03 UN 





NOTES: 
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TAN 



PURPOSE: Calculate the tangent of double real X (radians) 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.TAN 



.ENTR, /CMRT, TRNL, .TDIV 



JSB .TAN 

DEF *+3 

DEF <result> 

DEF x 

<error return> 



METHOD: X is reduced to the range (-it/4, +tt/4) (see TAN). Then the following formula 
is used: 



TANGENT(X) = Z * 



C1+Z 2 *(C2+Z 2 *(C3+Z 2 *C4) 
C5+Z 2 *(C6+Z 2 *(C7+Z 2 )) 



WHERE: 

CI = -.160528895723771175D+5 
C2 = +.127029221227298238D+4 
C3 = -.171390807007805963D+2 
C4 = +.281970876313544687D-1 
C5 = - . 20439173810817281 1D+5 
C6 = +.582002294049071829D+4 
C7 = -.181557373390721805D+3 
Z = X*4/tf 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 







ENTRY 


POINTS: 


.TAN 


Double real (radians) 


Double real 








Not callable 


Function: DTAN (with Y 


opt 


ion) 




Not callable 


X outside [-2 23 ,2 23 ) ■> 


09 


OR 





NOTES: 
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TANH 



PURPOSE: Calculate the hyperbolic tangent of double real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 


ROUTINE IS: U 


.TANH 


.ENTR,.CFER,.TADD,.TDIV,/CMRT,/EXTH,.4ZR0 


JSB .TANH 
DEF *+3 
DEF <result> 
DEF x 

-5- 



METHOD: The identities 

TANH(X) = (EXP(2*X)-1)/(EXP(2*X+1) 

EXP(X) = (2**N)*(2**(x/LN(2)-N)) 
are used to reduce the problem with /CMRT so that Y=X/LH(2)-N is minimized. Then 
/EXTH is called to calculate 2 -2 Y =e x and TANH is computed. If N=0, /EXTH computes 
TANH instead of 2 Y . If N is outside [-32,32) TANH returns SIGN(l.X). 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 











ENTRY 


POINTS: 


.TANH 


Double real 


Double real 


Not callable 


Function DTANH 


(with 


Y 


opt 


ion) 




Not callable 


None 



NOTES: 
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TCPX 



PURPOSE: Convert double real to complex real. The second value is set to zero. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.TCPX 


.NGL 


JSB .TCPX 
DEF <result> 
DEF x 

-> 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.TCPX 


Double real 


Complex 


real 


Not call 


able 


Not call 


able 


Not call 


able 


None 



NOTES: The result is rounded unless this would cause overflow. If so, overflow is set 

and the result is trunctuated to the greatest positive number. 
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TENT 

PURPOSE: Finds the greatest integer less than or equal to a double real (floor x) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.TENT 



.FLUN, .ENTR, .CFER 



JSB .TENT 
DEF *+3 
DEF <result> 
DEF x 



METHOD: All mantissa bits after the binary point are set to zero. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

E r ro r s : 



.TENT 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


None 



NOTES: 



Result is a double real value with no bits set after the binary point. 
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"THIS PAGE WAS INTENTIONALLY LEFT BLANK" 
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TINT 



PURPOSE: Convert double real to integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.TINT, .TFXS 



IFIX 



JSB .TINT 
DEF x 

■* (y in A) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.TINT, .TFXS 


Double real 


Integer 


Not callable 


Not callable 


Not callable 


None 



NOTES: l) if the argument is outside the range [-2 15 ,2 15 ) 
set. Overflow is cleared otherwise. 



15 
the result is 2 -1 and overflow is 
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PURPOSE: Double real arithmetic 



TMTH 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



FUNCTION: 



PROGRAM TYPE =7 






ROUTINE IS: U 


.TADD .TSUB .TMPY .TDIV 


.FLUN, .XFER, .CFER, FLOAT 


z=x+y 


JSB .TADD or .TSUB or 
DEF z 
DEF x 

DEF y 

z=x-y z=x*y z=x/y 


.TMPY 


or .TDIV 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.TADD, .TSUB, .TMPY, .TDIV 



Double real 



Double real 



Not callable 



Not callable 



Not callable 



NOTES: 



If underflow occurs, zero is returned with overflow set. If overflow or divide by 
zero occurs, the largest positive number is returned with overflow set. Otherwise, 
overflow is cleared. 
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TPWR 



PURPOSE: 



Calculates X , where x is a double real and I is an unsigned integer. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.TPWR 


.TMPY, FLOAT,. FLUtl, 


.CFER 


LDA 


< I > 




JSB 


.TPWR 




DEF 


<resul t> 




DEF 


X 





METHOD: 



See .FPWR 



ATTRIBUTES: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 





ENTRY POINTS: 


.TPWR 


Double real and integer 


Double real 


Hot cal lable 


Not callable 


Not callable 




None 



NOTES: 



See .FPWR 
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TSCS 



PURPOSE: Calculate the sine or cosine of double precision Y (radians) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


.SIN 


.COS 




.ENTR, /CMRT, 


TRNL, .TDIV 




JSB .SIN 

DEF *+3 

DEF <result> 

DEF y 

<error return> 


JSB .COS 

DEF *+3 

DEF <result> 

DEF y 

<error return> 

-> 





METHOD: The range is reduced to (-1,1) using /CMRT with the same identities used in .SNGS. 

The approximations used for sine and cosine on 
[-1.+1] are: 



SINE(Y) = X 



COSINE(Y) 



S1+XSQ*(S2+XSQ*(S3+XSQ*S4) ) 
S5+XSQ*(S6+XSQ*(S7+XSQ) 
C1+XSQ*(C2+XSQ*(C3+XSQ*C4) ) 
C5+XSQ*(C6+XSQ*(C7+XSQ)) 



ATTRIBUTES: 



C6 = +.234677917710655242D5 
C7 = +.209695300876930826D3 
X = Y*4/w 
XSQ = X*X 



WHERE: 

51 = +.206643399057353636D7 

52 = -.181603957072347052D6 

53 = +.359993003561793397D4 

54 = -.201074790195269777D2 

55 = +.263106547338311489D7 

56 = +.392702372048540481D5 

57 = +.278119167978678163D3 
CI = +.129054063552079782D7 

' C2 = -.374567381232715042D6 

C3 = +.134323138925688837D5 
C4 = -.112314630290509841D3 
C5 = +.129054063552079782D7 
ENTRY POINTS: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.SIN 


.COS 


Double real (radians) 


Double real (radians) 


Double real 


Double real 


Not callable 


Not callable 


Function: DSIN (with Y option) 


Function: DCOS (with Y option) 


Not callable 


Not callable 


X outside [-2 li ,2 16 ) + 05 OR 


050R 



NOTES: 
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TTOI 



PURPOSE: 



Calculates X , where x is a double real and I is an integer. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 




ROUTINE IS:U 


.TTOI 


.TPWR,.TDIV,.CFER,.4ZR0 


JSB .TTOI 
DEF <result> 
DEF x 
DEF I 
<error return> 



See .RTOI and .TPWR. 



ATTRIBUTES: 



FNTRY POINTS: 



Parameters 
Res u 1 1 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.TTOI 


Double real x, 


integer I 


Double real 


Not callable 


Not callable 


Not callable 


Condition 

x=0, I<0 

X IH> Z 127 


Error Code 

12 UN 

(Floating point overflow) 
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.TTOR 



PURPOSE: Raise a double real x to a real power y-. 

z = x Y (z is double real) 
PROGRAM TYPE = 6 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



ROUTINE IS: 



.TTOR 



.TTOT 



JSB .TTOR 

DEF z (result) 

DEF x 

DEF y 

■* error return 

-*• normal return 



Converts y to double real and calls .TTOT. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.TTOR 


Double real , 


Real 


Double real 


Not callable 


Not callable 


Not callable 


See .TTOT 
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TTOT 



PURPOSE: 



Calculate X y , where x and y are both double reals. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.TTOT 



.L0G,.EXP,.CFER,.TMPY,.4ZR0 



X y =.EXP (Y*.L0G(X); 



J SB .TTOT 

DEF <result> 
DEF x 
DEF y 
<error return> 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.TTOT 


Double Real 


Double Real 


Not Callable 


Not Callable 


Not Callable 


See Note 



NOTES: 



Underflow will give a zero result, with no error, 
no result and gives an error code of 07 OF. 



Overflow returns 



If (x<0) or (x=0 and y<0) there will be an error code of 13 UN. 
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.XCOM 



PURPOSE: 



Complements a double real unpacked mantissa in place. Upon return, 
A-register = 1 if exponent should be adjusted; otherwise A = 0. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XCOM 


.ZPRV 


JSB .XCOM 
DEF x 

ADA (exponent) 
STA (exponent) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 

Note: 



.XCOM 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


None 



This routine is available in 21MX FFP. See note on page 1-6. 
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.XDIV 



PURPOSE: Divide an extended real x by extended real y: z = x / y 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XDIV 


.ZRNT, 


.XPAK 


JSB .XDIV 


DEF z 


(result) 


DEF x 




DEF Y 




-V 





ATTRIBUTES: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 

Note: 



.XDIV 



Extended Real 



Extended Real 



Not callable 



Not callable 



Not callable 



See XADSB 



ENTRY POINTS: 



This routine is available in firmware. See note on FFP 
of FFP on page 1-6. 
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.XFER 

PURPOSE: Moves three words from address x to address y. Used for extended real transfers. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XFER 




.DFER, 


.ZPRV 


LDA (address of x) 
LDB (address of y) 
JSB .XFER 






on return: 






A = direct address of #+3 






B = direct address of y+3 







ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE: 



ENTRY POINTS: 



.XFER 



Extended real 



Extended real 



Not callable 



Not callable 



Not callable 



None 



This routine is available in firmware. See description 
on page 1-6. 
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.XMPY 

PURPOSE: Multiply extended real x by extended real Y: z = x*y 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.XMPY 


.XPAK 


.ZPRV 


JSB .XMPY 


DEF z 


(result) 


DEF x 




DEF y 









ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.XMPY 



Extended Real 



Extended Real 



Not callable 



Not callable 



Not callable 



See XADSB 



ENTRY POINTS: 



NOTES: This routine is available in firmware. See description 
on page 1-6. 
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.XPAK 



PURPOSE: Double real mantissa is normalized, rounded, and packed with exponent; 
result is double real . 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 




ROUTINE IS: P 


.XPAK 


.ZPRV 


LDA exponent 

JSB .XPAK 

DEF x (3-word mantissa) 

-> result in x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTE 



.XPAK 


Double real , 


exponent 


Double real 


Not callable 


Not callable 


Not callable 


See XADSB 



This routine is available in 21 MX FFP firmware, 
on page 1-6. 



See note 



TOO I 07 .•30 

If z is outside the range: [-2 , 2 (1-2 )], then the overflow bit is 
set and z = 2 127 (l-2~ 39 ). 

_l?q _?? -1?Q 

If the result is within the range: [-2 '"(1+2 ), 2 ], then the overflow 
bit is set and z = 0. 
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.YINT 



PURPOSE: Truncate fractional part of double real, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.YINT 



.TENT, .TADD, . ENTR 



JSB .YINT 
DEF *+3 
DEF <result> 
DEF x 



METHOD: Result is double real representation of the integer with the same sign as x- 

The maximum absolute value of the result is < I x I 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



ENTRY POINTS: 



.YINT 



Double real 



Double real 



Not callable 



Function: DDINT (with y option) 



Not callable 



None 



NOTES: 



Result is a double real value with no bits set after the binary point. 
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.4ZR0 



PURPOSE: Common double real zero 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




METHOD: 



The entry point .4ZR0 is the first word of a block of 4 words of value 
zero. This constant is used by numerous relocatable library routines. 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 









ENTRY 


POINTS: 


.4ZR0 - data 


references 


only 






iJone 


None 


Not callable 


Not callable 


Not callable 


Not applicabl 


e 









NOTES: 
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.CCM 



PURPOSE: Complements a complex variable x in place. 



PROGRAM TYPE 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



..CCM 


Complex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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.DCM 



PURPOSE: 



Extended real complement in place. 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



..DCM 


.ZRNT, 


.XSUB 


JSB .. 


DCM 


DEF x 




-*- 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTES 



ENTRY POINTS: 



J1£M_ 



Extended real 



Extended real 



Not callable 



Not callable 



Not callable 



See Note 2 



1. This routine is available in 21 MX FFP. See note 
on page 1-6. 

127 

2. If x is the smallest negative number (-2 ), then 

39 127 
result is the largest positive number [(1-2" )*2 ] 

and the overflow bit is set. 
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DLC 



PURPOSE: 



Load and complement a real x. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 




ROUTINE IS: P 


..DLC 


.ZPRV, .FSB 


JSB ..DLC 

DEF x 

■* complement in A & B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DLC 



Real 



Real 



Not callable 



Not callable 



Not callable 



None 
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.FCM 



PURPOSE: 



Complement real x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES. 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 6 



ROUTINE IS: P 



..FCM 



.ZPRV, .FSB 



DLD x 

JSB ..FCM 

-* result in A & B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



..FCM 


Real 


Real 


Not callable 


Not callable 


Not callable 


None 
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TCM 



PURPOSE: Negate a double real, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 


ROUTINE IS:U 


..TCM 


.TSUB, .4ZR0 


JSB ..TCM 
DEF x 

-> 



METHOD: x + - x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



..TCM 


Double real 


Double real - 


same location 


Not callable 


Not callable 


Not callable 


None 



NOTES: 



This routine modifies the memory locations designated by x. Overflow is cleared 
unless x is -2 in which case overflow is set and x becomes 2 127 -2 82 . 
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DOUBLE INTEGER SUBROUTINES 
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FIXDR 

PURPOSE: Convert real to double length record number. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



METHOD: Calls .FIXD 



FIXDR 



.FIXD, .ENTR 



REAL X,Y, FIXDR 



Y = FIXDR(X) 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



ENTRY POINTS: 


FIXDR 


Real 


Double length record number (may be in real variable) 


Function 


Function 


Callable as real procedure 


See .FIXD 



,31 



NOTES: Result is incorrect if real value is greater than 2 -1 since this is the maximum 

23 
record number. Record numbers greater than 2 may not be represented exactly as real 

numbers. 
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FLTDR 



PURPOSE: Convert double length record number to real, 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



METHOD: Calls .FLTD 



FLTDR 



.FLTD, .ENTR 



REAL X,Y, FLTDR 



Y=FLTDR(X) 



ROUTINE IS: U 



ATTRIBUTES: 



NOTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 


FLTDR 


Double length record number (may be in real variable or integer array) 


Real 


Function 


Function 


Callable as real procedure 


None 



,23 



Should not be used for record numbers exceeding 2 , as the conversion may not be 

exact for such numbers. 



2-149 



.DADS 



PURPOSE: Double integer add and subtract. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE 




7 














ROUTINE IS: U 


.DAD 










.DSB 










.DSBR 


DLD x 
JSB .DAD 
DEF y 










DLD x 
JSB .DSB 

DEF y 










DLD x 
JSB .DSBR 

DEF y 


-»■ result 


in 


A 


& 


B 


■* result 


in 


A 


& 


B 


->- result in A & B 



METHOD: 



x t y 



x - y 



y - x 



ATTRIBUTES: 



NOTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.DAD, .DSB, .DSBR 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



ENTRY POINTS: 



If overflow occurs, the least significant 32 bits are returned with overflow set. 
Overflow is cleared otherwise. "E" is never cleared, but is set if carry occurs 
(.DAD) or borrow (.DSB & DSBR). 

.DSBR is used to replace the sequence: 



DST temp 
DLD x 
JSB .DSB 
DEF temp 



WITH 



JSB 
DEF x 



DSBR 
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.DCO 



PURPOSE: 



Compare two double integers. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DCO 


Double integers 


None 


Not callable 


Not callable 


Not callable 


None 



NOTES: 



A, B, E & are left unchanged. The compare is correct even if X-Y is not 
representable in 32 bits. 



2-151 



.DDE 



PURPOSE: Decrement the double integer in the A & B registers. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.DDE 



DLD x 

JSB .DDE 

■* (result in A 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DDE 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



NOTES: If the largest negative number is decremented, the largest positive number is the 
result, with overflow set. Overflow is cleared otherwise. 

"E" is preserved unless X = 0, in which case it is set. 
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.DDI 



PURPOSE: Double integer divide. Z = Z/Y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 


= 7 


ROUTINE IS: U 


.DDI 






.DDIR 


FLOAT 


DLD x 
JSB .DDI 

DEF y 

■+ (result 


in 


A & B) 


DLD y 

JSB .DOIR 

DEF x 

■* (result in A & B) 



METHOD: 



X/Y 



Y/X 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.DDI, .DDIR 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



ENTRY POINTS: 



NOTES: If overflow or divide by zero occur, the largest positive integer is returned 
with overflow set. Overflow is cleared otherwise. "E" is preserved. 



.DDIR is used to replace the sequence: 



DST temp 
DLD x 
JSB .DDI 
DEF temp 



with 



JSB 
DEF 



.DDIR 
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.DDS 



PURPOSE: Double integer decrement and skip if zero. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS:U 



.DDS 



JSB .DDS 
DEF x 

* (if x-1 f 0) 
+ (if x-1 = 0) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.DDS 


Double 


integer 


Double 


integer 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



NOTES: This routine decrements the double integer x. 

A, B, E & are left unchanged except that A & B will be changed if the 
effective address is zero. 
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.DIN 



PURPOSE: Increment the double integer in the A & B registers. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 


7 


ROUTINE IS: U 


.DIN 




DLD x 

JSB .DIN 

-* (result in A & B) 



METHOD: 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 



ENTRY POINTS: 



.DIN 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



If the largest positive number is incremented, the largest negative number is the 
result, with overflow set. Overflow is cleared otherwise. 
"E" is preserved unless X = -1, in which case "E" is set. 
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.DIS 



PURPOSE: Double integer increment and skip if zero. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.DIS 



JSB .DIS 

DEF x 

-> (if x+1 i 0) 

■* (if x+1 = 0) 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.DIS 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



NOTES: This routine increments the double integer x by 1. A, B, E & are left 

unchanged except that A & B will be changed if the effective address is zero. 
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.DMP 



PURPOSE: Double integer multiply. Z = X * Y. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.DMP 



None 



DLD x 

JSB .DMP 

DEF y 

-> (result in A & 



X*Y 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



.DMP 



Double integer 



Double integer 



Not callable 



Not callable 



Hot callable 



None 



ENTRY POINTS: 



NOTES: If overflow occurs, the largest positive integer is returned with overflow set. 

Overflow is cleared otherwise. 

"E" is preserved. 
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.DNG 



PURPOSE: Negate Double Integer x. 1 = -x 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS:U 



.DNG 



None 



DLD x 

JSB .DNG 

-* (result in A & B) 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.DNG 



Double integer 



Double integer 



Not callable 



Not callable 



Not callable 



None 



ENTRY POINTS: 



NOTES: If overflow occurs the arguement is returned unchanged and overflow is set. 

Overflow is cleared otherwise. 

"E" is preserved unless X=0, in which case E=l. 



2-158 



.FIXD 



PURPOSE: Convert real to double integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =7 



ROUTINE IS:U 



.FIXD 


.FLUN 


DLD x 






JSB .FIXD 






■+ (y in A 


and 


B) 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



.FIXD 


Real 


Double 


inteqer 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTES: l) If the argument is outside the range [-2 31 , 2 31 ) the result is 2 31 -1 and 
overflow is set. Overflow is cleared otherwise. 

2) .FXDE is not a usable entry point. It is referenced by .XFXD and .TFXD. 
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.FLTD 



PURPOSE: Convert double integer to real 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



PROGRAM TYPE = 7 



ROUTINE IS: R 



.FLTD 



.PACK 



DLD x 
JSB .FLTD 
-> result in A 



ENTRY POINTS: 



.FLTD 



Double integer 



Real 



Not callable 



Not callable 



Not callable 



None 



NOTES: l) if the argument is outside the range [-2 ,2 ) the excess low-order bits are 

truncated. Positive numbers may become smaller, negative numbers may become smaller 
in value (larger in absolute value). 
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TFTD 



PURPOSE: Convert double integer to double real 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



.TFTD 



.XPAK 



DLD x 
JSB .TFTD 
DEF <result> 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.TFTD 


Double 


integer 


Double 


real 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



NOTES: 
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TFXD 



PURPOSE: Convert double real to double integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.TFXD 



.FLUN, .CFER, .FIXD, .FXDE 



JSB .TFXD 

DEF x 

■*■ (y in A and B) 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.TFXD 



Double real 



Double integer 



Not callable 



Not callable 



Not callable 



None 



NOTES: If the argument is outside the range [-2 
set. Overflow is cleared otherwise. 



31 31x 



■31 

the result is 2-1 and overflow is 
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.XFTD 



PURPOSE: Convert double integer to extended real 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



.XFTD 



.XPAK 



DLD x 
JSB .XFTD 
DEF <result> 



ATTRIBUTES: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



ENTRY POINTS: 



.XFTD 



Double integer 



Extended real 



Not callable 



Not callable 



Not callable 



None 



NOTES: 



2-163 



.XFXD 



PURPOSE: Convert extended real to double integer 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.XFXD 


.FLUN, .FIXD, .FXDE, 


.XFER 


JSB .XFXD 

DEF x 

■* (y in A and B) 



METHOD: 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



.XFXD 



Extended real 



Double integer 



Not callable 



Not callable 



Not callable 



None 



NOTES: If the argument is outside the range [-2 31 , 2 31 ) the result is 2 31 
set. Otherwise, overflow is cleared. 



•1 and overflow is 
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SECTION 



UTILITY SUBROUTINES 



ABREG 



PURPOSE: FORTRAN A and B register get routine. 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ABREG 



None 



JSB ABREG 
DEF *+3 
DEF IA 
DEF IB 



ROUTINE IS: U 



METHOD: Contents of A-register before the call returned in IA; contents of B-register 

returned in IB. 

IA, IB must not be array elements in FORTRAN or Algol because the registers 
will be modified in the array calculations. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ABREG 


Integer 


See method 


Callable 


Call 


ABREG 


(IA, 


IB) 


Callable 


Call 


ABREG (IA, 


IB) 


Callable 


Call 


ABREG 


(IA, 


IB) 
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BINRY 

PURPOSE: Reads or writes data at a specified location (logical unit number, 

track, sector, and offset) of a disc. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



BREAD, BWRIT 


EXEC 


:, $opsy 






JSB 


BREAD ( 


of BWRIT) 


(Note 1) 


DEF 


*+7 






DEF 


buffer 






DEF 


buffer 


length (words) 


DEF 


logical 


unit 




DEF 


track 






DEF 


sector 






DEF 


offset 


(Note 2) 




-J- 









ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



BREAD 


BWRIT 


Mi xed 


Mixed 


Mixed 


Mixed 


Callable 


Callable 


Callable 


Callable 


Callable 


Callable 


None 


None 



NOTES: 



1. BREAD is the read entry point and BWRIT is the write entry point. 

2. Offset: If the offset equals 0, the transfer begins on the sector 

boundary; if the offset equals n, the transfer skips n words 
into the sector before starting. 
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CLRIO 

PURPOSE: CLRIO is a dummy compatibility routine for use by the FORTRAN compilers, 

(was used by BCS system). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


CLRIO 




None 




JSB CLRIO 

DEF *+l 

■+ All registers remain intact. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



CLRIO 



None 



None 



Call CLRIO 



Call CLRIO 



Callable as CODE procedure 



None 
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DBGLU 

PURPOSE: Establishes the console lu through which DEBUG interacts with the user. 

Not used in DOS or RTE-IV. 



Entry 
points: 

External 
references: 

Calling 
sequence: 



PROGRAM TYPE = 


7 
















ROUTINE IS 


u 












DBGLU , 


$DBP3 






















No 


ne 












(Only 


called 


by 


DEBUG 


modu 


JSB 

-*- 

le. Not 


DBGLU 
cal led 


upon 


entry 


to 


a segment. 


) 



METHOD: 



Stores first RMPAR parameter in $DBP3. 



COMMENTS: 



Some main programs require the first RMPAR parameter to be something other than 
the console lu. In these cases, the user should assemble one of the following 
routines to replace the library version of DBGLU: 

RTE-II, RTE-III 

NAM DBGLU ,7 

ENT DBGLU ,$DBP3 
DBGLU NOP 

JMP DBGLU, I 
$DBP3 DEC lu 

END 

RTE-M 

NAM DBGLU, 7 

ENT DBGLU, $DBP3 

EXT $C0N 
DBGLU NOP 

LDA $C0N,I 

AND =B77 

STA $DBP3 

JMP DBGLU, I 
$DBP3 NOP 

END 
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DBKPT 



PURPOSE: Utility routine used by DEBUG. Never called by user programs. 

See DEBUG. Not used in DOS or RTE-IV. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



PROGRAM TYPE = 7 






ROUTINE IS: U 




$DBP2, 


$MEMR 




None 
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DEBUG 



PURPOSE: 



Aids in debugging user relocatable programs. Not used in DOS or RTE-IV. 



Entry 
points: 

External 
references : 



PROGRAM TYPE = 7 


ROUTINE IS: U 


$DBP1, DEBUG 


REIO, EXEC, $LIBR, $LIBX, $DBP3, DBGLU, 


IFBRK 



METHOD: 



The operator links DEBUG to a program at load-time with the 
Relocating Loader. 



COMMENTS: 



DEBUG places jump subroutine instructions in each breakpoint location and 
allows the program to execute normally until it reaches a breakpoint. 
The operator can set a relocation base, set instruction breakpoints, dump 
memory, and set values in memory or registers. 

For more information on DEBUG, refer to Appendix B. 
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ER0.E 



PURPOSE: To specify the LU for printing out library error messages. ER0.E is 
defaulted to 6. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 





None 


EXT 

LDA* 
STA 


ER0.E 

LU 
ER0.E 



METHOD: 



Note that a zero value for ER0.E will inhibit error messages. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ER0.E 


Logical 


Unit 


Number 


None 


Not Call 


able 




Not Call 


able 




Not Call 


able 
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ERR0 



PURPOSE: 



Prints a 4-character error code and a memory address on the logical unit ER0.E. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



pairs of ASCII characters. 



METHOD: mv is the routine identifier 
xx is the error type 
Prints this on the logical unit ER0.E: name nn xx @ Address B 



ROUTINE IS: U 



ERR0 



REIO, ER0.E, ,PNAME 



LDA nn I 
LDB xx J 
JSB ERR0 



see below 



where name is the name of the user program, 
where ADDRESS is P-l or the call to ERR0 

See Appendix A for a list of error messages which may be produced by the 
relocatable library subroutines. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



FRR0 



ASCTT r.turar.t.Prs 



Printftd 



Not callable 



Not callable 



Not callable 



None 
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GETAD 



PURPOSE: Determines the true address of a parameter passed to a subroutine and 

places the address in ADRES. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



METHOD: 



JSB SUB 
DEF X[,I] 



ROUTINE IS: U 



GETAD , 
ADRES 



NONE 



JSB GETAD 
DEF SUB, I 
LDA ADRES 
see below 



SUB NOP 

JSB GETAD 
DEF SUB, I 
LDA ADRES 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY 


POINTS: 




GETAD 




ADRES 


Integer Address 




NA 


Address 




Integer 


Not callable 




Not callable 


Not callable 




Not callable 


Not callable 




Not callable 


None 




None 



NOTE: 



May not be called by privileged or re-entrant routines; 
refer to .PCAU. 
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IGET 



PURPOSE: Provides FORTRAN and ALGOL programs with the ability to read the contents of 

a memory address. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



IGET 


None 


JSB IGET 




DEF *+2 




DEF IADRS 




->- results 


in A 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IGET 


Address 


Contents 


of 


memory address 


Callable 


as 


a function 


Callable 


as 


a function 


Callable 


as 


a function 


None 



NOTES: 



This routine is for FORTRAN and ALGOL users only. 
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IND.E 

PURPOSE: Used by . INDR and . INDA routines to select output LU for error messages, 
Default is 6; a inhibits messages 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



IND 


E 




None 


EXT 


IND 


E 


LDA 


LU 




STA 


IND 


E 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



IND 


E 






Logi 


cal 


Unit 


Number 


None 


Not 


Call 


able 




Not 


Callable 




Not 


Call 


able 
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INDEX 



PURPOSE: 



Returns the address (.INDA) or value (.INDR) of an ALGOL array element. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.INDA 
.INDR 



REIO, IND.E 



JSB .INDA (or .INDR) 
DEF array table (see below) 
DEF - number of indices 
DEF subscript number 1 



DEF subscript n 
^result in A or A & B 



METHOD: Array Table: 

TABLE DEC number of indices (+ = real, - 

DEC size of 1st dimension 

DEC -lower bound of 1st dimension 



integer) 



DEC size of last dimension 

DEC -lower bound of last dimension 

DEF array address 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.INDA 




.INDR 


Integer 




Inteqer 


Address: A 




Value: A or A & B 


Not callable 




Not callable 


Not callable 




Not callable 


Not callable 




Not callable 


See Note 1 




See Note 1 



NOTES: 



1. Prints INDEX? address 



where address is the address of call, 
with result = 0. 



Routine returns 
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ISSR 



PURPOSE: 



Sets the S-register to the value n. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ISSR 


None 


JSB ISSR 
DEF *+2 
DEF w 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ISSR 


Integer 


None 


Callable: 


CALL ISSR(/v) 


Callable: 


CALL ISSR(w) 


Callable 


as CODE Procedure 


None 
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ISSW 



PURPOSE: 



Sets the sign bit (15) of A-Register equal to bit w of the switch register. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ISSW 



NONE 



LDA n 

JSB ISSW 

-> result in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


ISSW 


Integer 


Inteaer 


Function: ISSW (n) 


Function: ISSW («) 


Not callable directly 


None 
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MAGTP 



PURPOSE: Performs utility functions on magnetic tape and other devices: 

checks status, performs rewind/standby, writes a gap, and issues 
a clear request. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



PROGRAM TYPE = 7 


ROUTINE IS: U 


IEOF, IERR, IEOT, ISOT, LOCAL, IWRDS(N/A in RTE), 


RWSTB 


.ENTR, EXEC 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 




IEOF, IERR, IEOT, ISOT, LOCAL, IWRDS, 


RWSTB 


Integer 


N/A 


Callable as subroutine 


Callable as subroutine 


Callable as CODE procedure 


Returns on illegal call 



CALLING 
SEQUENCES: 



The calling sequence and purpose of each entry point is: 

JSB IEOF Returns a negative value in A if an end-of-file 

DEF *+2 was encountered during last tape operation on 

DEF unit the logical unit specified. 



JSB IERR 
DEF*+2 
DEF unit 



JSB IEOT 
DEF *+2 
DEF unit 



Returns a negative value in A if a parity or 
timing error was not cleared after three read 
attempts during the last operation on the 
specified unit (cannot occur if EOF occurs). 

Returns a negative value in A if an end-of-tape 
was encountered during the last forward movement 
of the specified unit. 



JSB ISOT Returns a negative value in A if the start-of-tape 

DEF *+2 marker is under the tape head of the specified 

DEF unit unit. 



JSB LOCAL 
DEF *+2 
DEF unit 



Returns a negative value in A if the specified 
unit is in local mode. 



JSB IWRDS (Not available in RTE.) Returns the value of the 

DEF *+2 transmission log of the last read/write operation 

DEF unit on the specified unit. (In the formatter environ- 

■+ ment, this value is always a positive number of 

characters.) 



JSB RWSTB 
DEF *+2 
DEF unit 



Rewinds the specified logical unit and sets it 
to LOCAL. 
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NAMR 

PURPOSE: FORTRAN routine to read an input buffer of any length and produces a parameter 
buffer of 10 words. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



NAMR 


.ENTR 


JSB 


NAMR 


DEF 


*+5 


DEF 


IPBUF 


DEF 


INBUF 


DEF 


LENGTH 


DEF 


ISTRC 



NAMR equals -1 if no characters are in INBUF. 

NAMR equals if the character string has been parsed. 

WHERE: IPBUF = 10 word destination parameter buffer. 
The ten words are described as follows: 

Word 1 = if tvoe = (See below) 

Word 1 = 16 bit number if type = 1. If number is negative, 

number is in two's complement. 
Word 1 = Chars 1 & 2 if type = 3 
Word 2 = if type = or 1, chars 2 & 3 or trailing space(s) 

if 3. 
Word 3 = Same as word 2. (Type 3 param. is left justified) 
Word 4 = Parameter type of all 7 parameters in 2 bit pairs. 

Note the difference between NAMR parameter types, 

and those for the system library routine PARSE. 

= Null parameter 

1 = Integer number ic parameter 

2 = Not implemented yet. (FMGR?) 

3 = Left justified 6 ASCII character parameter. 
Bits for ,FNAME : PI : P2 : P3 : P4 : P5 : P6, 

0,1 2,3 4,5 6,7 8,9 10,11 12,13 

Word 5 = 1st sub-parameter and has characteristics of word 1. 

Word 6 = 2nd sub-parameter delimeted by colons as in word 5. 

Word 7 = 3rd sub-param. as 5 & 6. (May be 0, number or 2 chars) 

Word 8 = 4th 

Word 9 = 5th 

Word 10 = 6th sub-param. (For possible futures I.E. system #) 

INBUF = Starting addr of input buffer containing "NAMR". 

LENGTH = Character length of INBUF (must be positive value). 

ISTRC = Starting character number in INBUF. This parameter will 
be updated for possible next call to NAMR and the start 
character in INBUF. Caution: ISTRC is modified by this 
routine, therefore, it must be passed as a variable 
(not a constant) from caller (FTN). 



3-16 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 











ENTRY POINTS: 






NAMR 






Callable: 


IF 


(NAMR 


(IPBUF 


,INBUF 


,LENTH 


,ISTRC)) 


10 


,20 


Callable: 


IF 


(NAMR 


(IPBUF 


INBUF 


LENTH 


ISTRC)) 


10 


20 


Callable 


as i 


nteger 


function 













EXAMPLES THAT CAN BE PARSED: 
+12345, D0UG:DB:-12B:,, GEORGE: A, 
WHERE: 
NAMR # Wl W2 W3 W4 W5 



FTN,L 



12345 
DO 



GE 

&P 



UG 


OR 
AR 



(5000 IB 
00037B DB 



GE 00017B A 
SE 12517B JB 



TEST PROGRAM 



&PARSE:JB::4:-1:1775:123456B 



W6 



-1(5 




W7 



W8 



W9 



■1 1775 



W10 




-22738 



PROGRAM TESTN 

DIMENSION IB(36),IDMY(2),IPBUF(10) 

EQUIVALENCE (IDMY,DMY) , (LEN,IDMY(2) ) 
1 WRITE (1,100) 
100 FORMAT ("INPUT ASCII NAMR'S TO PARSE'?") 

DMY = EXEC (1,401B, 18,-72) 

ISCR = 1 

DO 200 1=1,10 

IF ( NAMR(IPBUF,IB,LEN,ISCR)) 1,210 
210 WRITE (1,220) ISCR, IPBUF, IPBUF 
220 FORMAT (" "/,I3,10(X, 16)/" "3A2,7(X,06) ) 
200 CONTINUE 

STOP 

END 

END$ 
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OVF 



PURPOSE: Returns value of overflow bit in bit 15 of the A-Register 

and clears the overflow bit. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



OVF 



None 



JSB OVF 
DEF RTN 
->■ result in A 



If overflow bit is set (on), the A-Register is set negative; 
if the overflow bit is off, the A-Register is set to zero. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



OVF 


None 


Integer: A 


Callable: 


See 


notes 


Callable: 


See 


notes 


Not callabl 


e 




None 



NOTES: IF (OVF(IDMY)) 10,20 

10 start of user's overflow set routine 
20 start of user's overflow clear routine 
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PAU.E 

PURPOSE: Used by .PAUS and .STOP routines to select LU on which to output Pause message. 

Default is 1 ; a inhibits messages. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PAU 


E 




None 


EXT 


PAU 


E 


LDA 


LU 




STA 


PAU 


E 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


PAU.E 


Logical Unit Number 


None 


Not callable 


Not callable 


Not callable 
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PAUSE 



PURPOSE: Prints the following message on the console device: name: PAUSE xxxx where 

name is the calling program name and xxxx is the specified integer i. Halts 
program execution and returns to operating system. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.PAUS, .STOP 



EXEC, PAU.E, REIO, PNAME 



LDA i 

JSB .PAUS (or .STOP) 

-> 

See Note 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY 


POINTS: 


.PAUS 




.STOP 


Integer 




Integer 


None 




None 


Not callable 




Not callable 


Not callable 




Not callable 


Not callable 




Not callable 


None 




None 



NOTE: 



When .PAUS is used, the program may be continued using 
GO (RTE) or :G0 (DOS). 
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PNAME 

PURPOSE: Moves the name of the currently executing program from the program's 

ID segment to a three word array. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PNAME 


.ENTR 


$0PSY 


JSB 


PNAME 


DEF 


*+2 


DEF 


"IARAY 


->■ 




IARAY BSS 3 



ATTRIBUTES: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

Algol: 

Errors: 





ENTRY 


POINTS: 


PNAME 


Integer 


ASCII characters 


Callable 


(CALL PNAME (IARAY)) 




Callable 


(CALL PNAME (IARAY)) 




Callable 


as CODE procedure 




None 



Note: The sixth character is returned as an ASCII space. 



Sample Program : 

PROGRAM PRNAM 
DIMENSION IARAY(3) 
CALL PNAME (IARAY) 
WRITE (1,100) IARAY 
100 FORMAT (" AA PROGRAM/ 
STOP 



,3A2, "EXECUTING:/) 
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PTAPE 



PURPOSE: Positions a magnetic tape unit by spacing forward or backward a 

number of files and/or records. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 






ROUTINE IS: U 


PTAPE 


EXEC, .ENTR 




JSB PTAPE 

DEF *+4 

DEF logical unit 

DEF file count 

DEF record count 


< see below 





ATTRIBUTES: 



For example: 

means make no file movements. 

-1 means backspace to the beginning of the current file. 

1 means forward space to beginning of the next file. 

-2 means backspace to the beginning of the previous file. 

Record count: positive for forward, negative for backward. 

The file count is executed first, then the record count. 
EOF marks count as a record. 

For example: 

0,-1 means move back one record. 

-1,0 means backspace to the first record of the current file. 
See Note 1 . 

ENTRY POINTS: 



PTAPE 


Integers 


None 


Callable: 


CALL 


PTAPE(logical 


unit 


.file 


cnt 


record 


cnt) 


Callable: 


CALL PTAPE( logical 


unit 


file 


cnt, record cnt) 


Callable 


as CODE 


procedure 












None 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: i. The diaaram below shows how the position of the magnetic tape would change 
with several file/record counts. 



(-1,-2) (" 


■1,-D 

Inn 


(-1,0) 


(0,-D 
i 


(+i,-i) 


F 


+1,0) 
/ 









n □ Lzz.zD 









t- 






! 


h 




where 


= record 


current 
position 



2. After using PTAPE, always check status with MAGTP. 



3-22 



RMPAR 



PURPOSE: 



Move five parameters from the programs ID segment into a buffer within the 
programs memory space. If the program resides in a partition, the parameters 
are cross loaded from the system maps. Used to retrieve up to five parameters 
passed to a program by the operating system (See note 1). 

PROGRAM TYPE = 7 ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ATTRIBUTES: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 



RMPAR 



$0PSY 



Suspend call or program 

entry point 
JSB RMPAR 
DEF *+2 
DEF ARRAY 



ARRAY BSS 5 



ENTRY POINTS: 



RMPAR 



Integer 



Integer 



Callable 



Callable 



Callable 



None 



Notes: 1, The operating system will insert parameters into a program's ID seg- 
ment as a result of: 

a. ON, GO, and other functions in RTE (refer to RTE manual for other 
functions of this call). 

b. :PR or :G0 in DOS (refer to a disc operating system manual). 

c. Program execution of an EXEC call. 

2. The RMPAR call must occur as the first executable instruction in the 
program or as the first executable instruction following the program 
suspend call . 



Examples: FTN.L 



PROGRAM TEST 
DIMENSION IBUF (5) 
CALL RMPAR (IBUF) 

or 
PAUSE 
CALL RMPAR (IBUF) 



ALGOL 

INTEGER PI, P2, P3, P4, P5 



CALL RMPAR(Pl) 
Parameter cannot be an 
array in ALGOL program. 



3-23 



RSFLG 



PURPOSE: To set the save resource flag to RTE-BASIC. Certain subroutines used by 
RTE Real-Time Multi-User BASIC modify or store intermediate results within 
the device subroutine and expect those results to be intact for subsequent 
calls to those routines. The subroutine 'RSFLG' sets a flag which BASIC 
interogates to determine whether to save a copy of the device subroutine 
on the disc or allow the device subroutine to be overlayed. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



RSFLG, #RSFG 



.ENTR 



JSB RSFLG 
DEF *+l 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



RSFLG 



None 



A and B unchanged. #RSFG set to 1. 



Callable 



Callable 



Callable 



None 
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SREAD 

PURPOSE: Reads a source record or sector from a device specified by a logical unit number. 
(Used only by system programs). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%READ, WFIL, XRDSC, 


$0PSY, EXEC 


JSB 


%READ 


DEF *+5 


DEF 


input logical unit 


DEF 


input buffer 


DEF 


negative number of characters 


EOP 


return 


- B 


= number of characters 


LDA Code 


LDB 


sector # 


JSB 


5SRDSC 


- A 


= last word in sector 


JSB 


WFIL 


-+ A 


= last word in sector 



ENTRY POINTS: %READ reads a source record from disc or other 
device specified by logical unit number. 
%RDSC reads a specified sector, returning the (RTE) 
code word. 

%JFIL rewinds source; reads sector pointed to by the 
base page source-file code word. 
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#cos 



PURPOSE: 



Entry to CCOS with no error return. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



#cos 



ERR0, .ENTR, CCOS 



JSB #C0S 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



#C0S 


Compl ex 


Compl ex 


Not callable 


Not callable 


Not callable 


None 
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#EXP 



PURPOSE: 



Entry to CEXP with no error return. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



#EXP 



ERR0..ENTR, CEXP 



JSB #EXP 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



#EXP 


Complex 


Compl ex 


Not callable 


Not callable 


Not callable 


None 
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#LOG 



PURPOSE: 



Entry to CLOG with no error return. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 


POINTS: 


EXTERNAL 


REFERENCES: 


CALLING 


SEQUENCES: 



#L0G 



ERR0, .ENTR, CLOG 



JSB #L0G 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



#L0G 


Complex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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#SIN 



PURPOSE: 



Entry to CSIN with no error routine. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



#SIN 



ERR0, .ENTR, CSIN 



JSB #SIN 
DEF *+3 
DEF y 

DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



#SIN 


Compl ex 


Complex 


Not callable 


Not callable 


Not callable 


None 
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$EXP 



PURPOSE: 



Entry to DEXP with no alternate error routine. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



$EXP 



ERR0, .ENTR, DEXP 



JEB $EXP 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



$EXP 



ENTRY POINTS: 



Extended real 



Extended real 



Not callable 



Not callable 



Not callable 



None 
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$LOG 



PURPOSE: 



Entry to DLOG with no error return. 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



ROUTINE IS: U 



$L0G 



ERR0, .ENTR, DLOG 



JSB %EXP 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



$L0G 



Extended real 



Extended real 



Not callable 



Not callable 



Not callable 



None 
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$LOGT 



PURPOSE: Entry to DLOGT with no error return. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



$L0GT $LO60 



DLOGT, .ENTR, ERR0 



JSB $L0GT (or $LOG0) 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



$L0GT ($LOG0) 



Double real 



Double real 



Not callable 



Not callable 



Not callable 



None 
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$SETP 



PURPOSE: 



Set up a list of pointers. 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



$SETP 



.ZPRV 



LDA <starting pointer> 

LDB <starting address to be set> 

JSB $SETP 

DEF <count> 



METHOD: The contents of A are stored in the address in B. A and B are then incremented. 
The process is performed "count" times, affecting "count" memory locations. 
Upon return: 

A = 

B = B + count 



ATTRIBUTES: 



ENTRY POINTS: 



$SETP 


Integer 


Integer 


Not call 


able 


Not call 


able 


Not call 


able 


None 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 1) This routine is available in microcode. 
2) The sign bit of B is ignored. 
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$SQRT 



PURPOSE: 



Entry to DSQRT with no error return. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



$SQRT 



DSQRT, ERR0, .ENTR 



JSB $SQRT 
DEF *+3 
DEF y 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



$SQRT 



Extended real 



Extended real 



Not callable 



Not callable 



Not callable 



None 
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PURPOSE: 



%ABS 

Call -by-name entry to IABS(j) 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%ms 


IABS 


JSB »BS 






DEF *+2 






DEF i 






-+ result 


in 


A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%ABS 


Integer: 


A 


Integer: 


A 


Not call 


able 


Not callable 


Not callable 


None 
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$TAN 



PURPOSE: DTAN with no error return 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



$TAN 


DTAN , .ENTR 


J SB DTAN 
DEF * +3 
DEF <result> 
DEF x 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



$TAN 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


See DTAN 



NOTES: 
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%AN 



PURPOSE: Call-by-name entry to TAN(x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%AN 


TAN, 


ERR0 




JSB 


°/M 




DEF 


*+2 




DEF 


X 




•+ result in 


A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%AN 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


None 
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%AND 



PURPOSE: Call-by-name entry to calculate the logical "and" (product) of two 

integers i and j. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES. 

CALLING 
SEQUENCES: 



%MD 


None 


JSB »ND 

DEF *+3 

DEF J 

DEF j 

-> result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%AHD 


Integer 


Integer 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%ANH 

Call -by-name entry to TANH(x). 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



7MH 



TANH 



JSB %ANH 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



°/MH 


Real 


Real 


A&B 


Not callable 


Not callable 


Not c 


:allable 


None 
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PURPOSE: 



%BS 

Call -by-name entry to ABS(x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%bs 


ABS 


JSB %BS 






DEF *+2 






DEF x 






-* result 


in 


A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%BS 


Real 


Real : A&B 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%FIX 

Call -by-name entry to IFIX(x). 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



%FIX 



IFIX 



JSB %FIX 

DEF *+2 

DEF x 

■* result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%FIX 


Real 


Integer: A 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%IGN 

Call-by-name entry to SIGN (x, z) 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES. 

CALLING 
SEQUENCES: 



XIGN 


SIGN 


JSB MGN 








DEF *+3 








DEF x 








DEF z 








-^result in 


A 


& 


B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



i » GN 



Real or integer and real 



Real 



Not callable 



Not callable 



Not callable 



None 



3-42 



%IN 



PURPOSE: 



Call -by-name entry to SIN (x) , 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%IH 


SIN, 


ERR0 








JSB 


%IN 








DEF 


*+2 








DEF 


X 








-►re; 


ult in 


A 


& 


B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%m 


Real 


Real 


: A & B 


Not callable 


Not 


callable 


Not 


callable 


See 


SIN 
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%INT 

PURPOSE: Call-by-name entry to AINT (x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%INT 


AINT 


JSB %INT 








DEF *+2 








DEF x 








-►result in 


A 


& 


B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%INT 


Real 


Real 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%LOAT 

Call -by-name entry to FLOAT (j) 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



XLOAT 



FLOAT 



JSB %L0AT 
DEF *+2 

DEF I 

-> result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



2L0AT 


Inteqer 


Real: A&B 


Not callable 


Not callable 


Not callable 


None 
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PURPOSE: 



%LOG 

Call -by-name entry to ALOG (x). 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



%L0G 



ALOG, ERR0 



JSB %L0G 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



t\ nn 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


See ALOG 
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PURPOSE: 



% LOGT 

Call -by-name entry to ALOGT (x). 



PROGRAM TYPE = 7 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



%L0GT %LOG0 



ALOGT, ERR0 



JSB %L0GT (%LOG0) 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ENTRY POINTS: 



XLOGT (%LOG0) 



Real 



Real 



Not callable 



Not callable 



Not callable 



None 
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%NT 



PURPOSE: Call -by-name entry to INT (x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%NT 


INT 


JSB 


%m 


DEF 


*+2 


DEF 


x (real ) 


->• result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%NT 


Real 


Inteaer 


Not callable 


Not callable 


Not. callable 


None 
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%0R 



PURPOSE: Call -by-name entry to calculate the inclusive "or" of two integers 

i and j. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



XOR 



None 



JSB XOR 

DEF *+3 

DEF j 

DEF j 

■* result in A 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



«f)R 


Integer 


Integer: A 


Not callable 


Not callable 


Not callable 


None 
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D /oOS 



PURPOSE: Call-by-name entry to COS (x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



xos 


COS, 


ERR0 






JSB 


%0S 






DEF 


*+2 






DEF 


X 






■+ result 


in 


A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ffiS 


Real 


Real: A&B 


Not callable 


Not callable 


Not callable 


See COS 



3-50 



>A>OT 



PURPOSE: 



Standard call-by-name subroutine for NOT function. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



%0T 


None 


JSB fflT 






DEF *+2 






DEF j 






-+ result 


in 


A 



Executes ones complement of J. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%0T 


Integer 


Inteqer: A 


Not callable 


Not callable 


Not callable 


None 
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°/oQRT 

PURPOSE: Call -by-name entry to SQRT (x). 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



%QRT 



SQRT, ERR0 



JSB %QRT 

DEF *+2 

DEF x 

-* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%QRT 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


See 


SQRT 
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°/oSIGN 



PURPOSE: Call-by-name entry to ISIGN (r, z). 



PROGRAM TYPE = 7 



ENTRY 

POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



%SIGN 



ISIGN 



JSB %SIGN 
DEF *+3 
DEF I 
DEF z 
■* result in 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%SIGN 



ENTRY POINTS: 



Real (or integer) & integer 



Integer: A 



Not callable 



Not callable 



Not callable 



None 
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%ssw 



PURPOSE: Call-by-name entry to ISSW (w). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



%ssw 



ISSW 



JSB %SSW 

DEF *+2 

DEF n (integer) 

-»• result in A 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%SSW 



Integer 



Integer: A 



ENTRY POINTS: 



Not callable 



Not callable 



Not callable 



None 



3-54 



°/oTAN 



PURPOSE: 



Call -by-name entry to ATAN (x). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



CTAN 



ATAN, ERR0 



JSB CTAN 

DEF *+2 

DEF x 

■* result in A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



ft TAN 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


See 


ATAN 
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%WRIS 

PURPOSE: Writes a disc source file (used only by system programs). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


WIS, %WRIN, %WE0F, 


EXEC 



Note: This routine can only be called in the RTE System. 



3-56 



%WRIT 



PURPOSE: Writes a load-and-go file on disc (used only by system programs) 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


WRIT, 3SWRIF, %WBUF, 


$0PSY, EXEC 
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PURPOSE: 



%XP 

Call -by-name entry to EXP (x). 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



%XP 


EXP, 


ERR0 






JSB 


%XP 






DEF 


*+2 






DEF 


X 






■+ result 


in 


A&B 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



%XP 


Real 


Real 


: A&B 


Not 


callable 


Not 


callable 


Not 


callable 


See 


EXP 
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.ENTC 



PURPOSE: Transfers the true addresses of parameters from a calling sequence into a 
subroutine and adjusts return addresses to the true return point. 



PROGRAM TYPE = 6 



ROUTINE IS: P 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.ENTC 


Address 


Address 


Not callable 


Not callable 


Not callable 


None 



NOTES: This routine assumes the subroutine call is of the form: 

JSB SUB 



DEF P 



(first parameter) 



DEF P. 



m 



COMMENTS: The number of parameter addresses actually passed by the calling 
routine must agree with the number requested by the receiving 
routine. 
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PROGRAM TYPE = 6 






ROUTINE IS: P 




.ENTR, 


.ENTP 




.ZPRV 



.ENTR 

PURPOSE: Transfers the true addresses of parameters from a calling sequence 

into a subroutine; adjusts return address to the true return point. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: For all Utility routines: 

PARAM BSS N (N = maximum number of parameters) . , 
SUB NOP (entry point to subroutine) ° 

JSB .ENTR 
DEF PARAM 

For all privileged routines: 

PARAM BSS N (N = maximum number of parameters) 
SUB NOP Subroutine entry point 
JSB .ZPRV 
DEF LIBX 
JSB .ENTP 
DEF PARAM 



LIBX JMP SUB, I 
DEF LIBX 

For all re-entrant routines: 

TDB NOP (re-entrant processing table) 
DEC Q+N+3 (size of table) 
NOP 

BSS Q (subroutine variables) 
PARAM BSS N (N = maximum number of parameters) 
SUB NOP (Subroutine entry point) 
JSB .ZRNT 
DEF LIBX 
JSB .ENTP 
DEF PARAM 
STA TBD+2 (return address) 



LIBX JMP TDB+2,1 
DEF TDB 
DEC 
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ENTR 



ATTRIBUTES: 



ENTRY POINTS: 



.ENTR 


.ENTP 


Address 


Address 


Address 


Address 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


Not callable 


None 


None 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

NOTES: 1. The true parameter address is determined by eliminating all 
indirect references. 

2. .ENTR and .ENTP assume the subroutine call is of the form: 

(M = number of parameters) 



JSB SUB 
DEF *+M+l 
DEF P, 



1 



DEFP M 

If M > N, then N parameters will be passed. If N > M, then M parameters 
will be passed, and any parameter addresses not passed remain as they 
were from the previous call. 

3. "PARAM BSS N" must appear immediately before the subroutine entry point 
"SUB NOP". The entry point is set to the return address (DEF *+M+l). 
"JSB .ENTR" must be the first instruction after the subroutine entry 
point. "JSB .ENTP" must be the third instruction after the subroutine 
entry point. 

4. This routine is available in FFP firmware. See note on page 1-6. 
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.FMUI 



PURPOSE: .FMUI contains three entry points corresponding to three conversion procedures: 

.FMUI — Convert an ASCII digit string to internal numeric form. 

.FMUO — Convert A numeric value to ASCII. 

.FMUP — Convert an unpacked internal format number (from .FMUI) to a normal 
format. 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.FMUI, .FMUO, .FMUP 


.PACK, .ENTR, .MVW, IFIX 


JSB 


.FMUI 




DEF 


*+8 




DEF 


<buffer> 


ASCII, one digit/word, FORTRAN R1 format 


DEF 


<bufsiz> 


# of digits in <buffer> between and 20, inclusive 


DEF 


<sign> 


= positive, 1 = negative 


DEF 


<exp> 


scale factor; power of ten 


DEF 


<result> 


returned value 


DEF 


<type> 


type of <result> (see below) 


DEF 


<ovfl> 


returned from .FMUI, 1 if overflow or underflow else 0. 


JSB 


.FMUO 




DEF 


*+7 




DEF 


<buffer> 


returned from .FMUO 


DEF 


<bufsize> 


returned from .FMUO 


DEF 


<sign> 


returned from .FMUO 


DEF 


<exp> 


returned from .FMUO 


DEF 


< value > 


input value 


DEF 


<type> 


type of value (see below) 


JSB 


.FMUP 




DEF 


* + 5 




DEF 


<result> 




DEF 


<type> 




DEF 


<unpkd> 


input, <result> from .FMUI 


DEF 


<ovfl> 


returned from .FMUP, 1 if overflow or underflow else 0. 
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.FMUI 



METHOD: .FMUI — The value in <buffer> is converted to binary with the digit in buffer (i) having weight 10** (<exp>-i). 
As if it were of the form 0. <buffer> E <exp>. The result is negated if <sign> = 1 , and rounded to 
the specified type: 

<TYPE> = TYPE 

16-bit Integer (1 word) 

1 32-bit Integer (2 words) 

2 32-bit Real (2 words) 

3 48-bit Real (3 words) 

4 64-bit Real (4 words) 

5 unpacked internal format (5 words) 

.FMUO — Reverse of .FMUI, i.e., generates <buffer>, <exp>, and <sign> from <value> as described in 
.FMUI. The result should be rounded by calling .FMUR since there may be some round-off error by 
.FMUO such as 2.0 may convert to 1.99999. 

.FMUP — A type 5 buffer <unpkd> created by .FMUI is converted to a normal type buffer <result>. The type 
of <result> is specified by <type> and must be to 4. 



ATTRIBUTES: 



FORTRAN: 
Pascal: 
Errors: 





ENTRY POINTS: 


.FMUI, .FMUO, .FMUP 


Callable (FORTRAN 77 only) 


Callable 


None 
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.FMUR 



PURPOSE: Rounding of digit string produced by .FMUO. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 




JSB 


.FMUR 


DEF 


*+5 


DEF 


<buffer> 



DEF 
DEF 
DEF 



<bufsiz> 
<rndsiz> 
<ovfl> 



ASCII, one digit/word, FORTRAN R1 format (input and returned 
value) 

# of digits in <buffer> between and 20, inclusive 

# digits to round to 

returned from .FMUR, 1 if carry overflow occurs else 0. 



METHOD: Add 5 to the (<rndsiz>+1)th digit of <buffer). If the (<rndsiz>+1)th digit of <buffer> is 5 and all other 
significant digits are 9 then the first digit in <buffer> is set to 1 , all other digits are set to 0, and ovfl is set to 
1 (i.e., if carry overflow occurs, rightshift carry into <buffer> and set ovfl to 1 ). If .FMUO was used to create 
<buffer> then the new scale factor should be <exp>+<ovfl>. 



ATTRIBUTES: 



ENTRY POINTS: 



FORTRAN: 
Pascal: 
Errors: 



.FMUR 



Callable (FORTRAN 77) 



Callable 



None 



EXAMPLE: A conversion to 10 digits would be as follows: 

.FMUO (buffer, 1 1,sign,exp,value,type) 
.FMUR (buffer, 11,10,ovf I) 
exp=exp+ovfl 



3-61 D 



.GOTO 



PURPOSE: 



Transfers control to the location indicated by a FORTRAN computed 



GO TO statement: GO TO (jc 7 , k 



l' V 



*J J 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.GOTO 



None 



JSB .GOTO 
DEF *+n+2 
DEF j 
DEF jc, 



DEF % 



ATTRIBUTES: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 

Note: 



.GOTO 



Addresses 



Branch to address k 



ENTRY POINTS: 



Not callable 



Not callable 



Not callable 



If j <1 then k-, if j>n then jc 



This routine is available in FFP firmware. See note on page 1-6. 



3-62 



.MAP. 



PURPOSE: Returns actual address of a particular element of a 

two-dimensional FORTRAN array. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



.MAP. 



None 



JSB .MAP. 

DEF array 

DEF first subscript 

DEF second subscript 

OCT first dimension, as below 

■* result in A 



Length of first dimension is actual for a real array, two's complement 
for an integer array. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.MAP. 


Integer 


Integer 


Not callable 


Not callable 


Not callable 


None 
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.OPSY 

PURPOSE: Determines which operating system is in control. Included for compatibility 

with previous libraries. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.OPSY 


$0PSY, 


JSB 


.OPSY 


•> result in A 


A = 


-7 (RTE-MI) 


A = 


-15 (RTE-MII) 


A = 


-5 (RTE-MI II) 


A = 


-3 (RTE-II) 


A = 


-1 (RTE-III) 


A = 


-9 (RTE-IV) 


A = 


1 (DOS) 



NOTE: This routine is equivalent to: EXT $0PSY 

LDA $0PSY 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.OPSY 


None 


Integer 


Not callable 


Not callable 


Not callable 


None 
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.PCAD 

PURPOSE: Return the true address of a parameter passed to a subroutine. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 6 




ROUTINE IS: P 


.PCAD 


.ZPRV 


JSB .PCAD 

DEF SUB, I 

■* result in A 

(See below for context) 



JSB SUB (call to subroutine; indirect bit is optional 
DEF X[,I] on parameter) 



SUB NOP 



(entry point to subroutine) 



JSB .PCAD 

DEF SUB, I 

-> address of X in A 



ATTRIBUTES: 



NOTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 

1. 

2. 



.PCAD 



Indirect Address 



Direct Address: A 



Not callable 



Not callable 



Not callable 



None 



ENTRY POINTS: 



.PCAD has the same purpose as GETAD. 

.PCAD is used by re-entrant or privileged subroutines because they 
cannot use GETAD. 
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.PRAM 

Processes parameter values and/or addresses passed to Assembly 
language subroutines by ALGOL programs. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE 


= 7 
















ROUTINE IS: U 


.PRAM 


None 


JSB .PRAM 
1st code word 
2nd code word 


Last code word 

1st parameter address or value (2 words for real) 

2nd parameter address or value (2 words for real) 


Last parameter address or value 


Format of 1st code word: 


15 10 8 6 4 2 C 






N 


P l 


P 2 


P 3 


P 4 


P 5 




W 


nere n is number of parameters (maximum of 52) 
p. is two bit code for ith parameter 




Two bit code: upper bit = 1 means ith parameter is a value 
upper bit = (3 means ith parameter is address 
lower bit = 1 means parameter is real value (2 words) 
lower bit = means parameter is integer value 
Format of other code words (maximum of 7): 
14 12 10 8 6 4 2 




P K 


P K + 1 


P 
K+2 


P K + 3 


p 
K+4 


P K+5 


P K+6 


P K + 7 











ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.PRAM 


Integer 


Integer & Real 


Not callable 


Not callable 


Not callable 


None 



NOTE: Used in Assembly language subroutines to retrieve parameters from 
calling sequence inside the ALGOL calling program. 
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.RCNG 



PURPOSE: 



Convert calls using .ENTR to .ENTC convention. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 




ROUTINE IS: U 


.RCNG 


None 


See Method 



BEFORE CALL 


JSB 


XADD 


DEF 


*+4 


DEF 


Z 


DEF 


X 


DEF 


Y 


<RETURN> 



AFTER CALL: 

NOP 

JSB .XADD 
DEF Z 
DEF X 
DEF Y 
<RETURN> 



HOW THIS ROUTINE IS USED 

XADD NOP 

JSb .RCNG 
DEF 0XADD+O 
ORB 
(JXADD DEF .XADD+0 
ORR 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



.RCNG 


None 




See method 


Not Callable 


Not Callable 


Not Callable 


None 



NOTES: 



The subroutine subr is one of the eight non-intrinsic entry points: 
XADD, XSUB, XDIV, CADD, CSUB, CDIV, CMPY. 
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.SWCH 

PURPOSE: Switches execution control to the xth entry of a sequence of w labels 

(implements ALGOL SWITCH statement). 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 

SEQUENCES: 



PROGRAM TYPE = 


7 


ROUTINE IS: U 


.SWCH 


None 




LDA J 






JSB S 






-> return if i is out of range 






S NOP 






JSB .SWCH 






ABS n (see below) 






DEF Label 1 






DEF Label 2 






DEF Label w 






n is the number of labels. 






If i is out of range, .SWCH returns. 





ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


.SWCH 


Addresses 


N/A 


Not callable 


Not callable 


Not callable 


If i is out of 


ran 


ge, 


returns. 
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.TAPE 



PURPOSE: Performs magnetic tape rewind, backspace or end-of-file operations 

on a specified logical unit. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.TAPE 



EXEC 



LDA constant 
JSB .TAPE 



METHOD: 



Constant = ZZXXYY 

where: 

xx = 1 to write end of file 

= 2 to backspace one record 

=3 to forward space one record 

=4 to rewind magnetic tape 

=5 to rewind/standby 

= 12 to write a gap 

=13 to forward space one file 

=14 to backspace one file 
yy = logical unit number of the magnetic tape 
zz = don't care 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 





ENTRY POINTS: 


.TAPE 


Integer 


None 


Not callable (Note 1) 


Not callable (Note 1) 


Not callable 


None 



NOTES: 



In FORTRAN use utility statements or PTAPE and MGTAP. 
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..MAP 

PURPOSE: Computes the address of a specified element of a 1 or 2 or 3 dimension array; 
returns the address in the A-Register. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



..MAP 



None 



For 1 dimension: 

CCA, <CLE> 

LDB n (see below) 

JSB ..MAP 

DEF base address 



For 2 dimensions: 

CLA, <CLE> 

LDB n (see below) 

JSB ..MAP 

DEF base address 



DEF 1st subscript DEF 1st subscript 
-*- address in A 



For 3 dimensions: 
CLA, INA, <CLE> 
LDB n (see below) 
JSB ..MAP 
DEF base address 
DEF 1st subscript 
DEF 2nd subscript DEF 2nd subscript 
DEF length of 1st dimension DEF 3rd subscript 
■* address in A DEF length of 1st dimension 

DEF length of 2nd dimension 
-> address in A 



ATTRIBUTES: 



Parameters: 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors: 



w = number of words per element in the array (1, 2, 3 or 4) 

E reg = 1 if store to this element 
if read from this element 



ENTRY POINTS: 



..MAP 


Integer 


Integer 


Not callable 


Not callable 


Not callable 


None 



Note: This routine is available in FFP firmware. See note on page 1-6. 
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/ATLG 



PURPOSE: Compute (l-X)/(l+X) in double precision 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: 



PROGRAM TYPE = 7 



ROUTINE IS: U 



/ATLG 



.TADD .TSUB .TDIV 



JSB /ATLG 
DEF x 



X +~ (1-X)/(1+X) 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/ATLG 


Double 


real 


Double 


real 


Not ca 


liable 


Not ca 


liable 


Not ca 


liable 


None 



NOTES: 



1) No error checking is performed. 

2) The X and Y registers may be changed. 
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/COS 



PURPOSE: .COS with no error return 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



/COS 


.COS , .ENTR 


JSB /COS 
DEF * +3 
DEF <result> 
DEF x 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/COS 


Double real 


Double real 


Hot callable 


Not callable 


Not callable 


See .TSCS 



NOTES: 
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/CMRT 



PURPOSE: Range reduction for .SIN, .COS, .TAN, .EXP and .TANH 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



/CMRT 



.CFER, .TADD, .TSUB, .TMPY, .TFXD, .TFTD, .FLUN, IFIX, FLOAT 



LDA <flag> 
JSB /CMRT 
DEF <result> 
DEF <constant> 
DEF <argument> 
->- error return 
•* normal return 



(B-register contains least significant bits of N) 



METHOD: /CMRT multiplies the argument by the constant, then subtracts from this product the 
nearest even integer, N. If too much cancellation occurs in the above subtraction, 
or the argument is too large, the computation (depending on the flag) may be repeated 
in higher precision. If this can occur, a second constant must immediately follow 
the first. The second constant must have the value obtained by truncating the exact 
constant after 28 bits (including sign), and subtracting this value from the exact 
constant. 



ATTRIBUTES: 



ENTRY POINTS: 



/CMRT 


Double real 








Double real 


Not callable 


Not callable 


Not callable 


See below for 


argument 


too 


large. 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



NOTES: 1) The accepted range of arguments depends on the setting of the flag. 
The table below shows the outcome of the different flag settings. 

Criteria for using higher precision 

number outside [-8, +8) 



outside [-8, +8) or excessive cancellation 

outside [-8, +8) or N/2 is odd and excessive 
cancellation 

outside [-8, +8) or N/2 is even and excessive 
cancellation 



2) This routine May alter the X and Y registers. 

3) This routine should be used by system programs only. 



Flag 


Example 




Range 


-2 


.EXP,c=2/ln 


(2) 


[-128,128) 


-1 


.TANH,c=4/l 


i(2) 


r-8192*ln(2), 
8191.75*ln(2) 





.TAN,c=4/pi 




[-2 23 ,+2 23 ) 


2,6 


.C0S,c=4/pi 




[-2 23 ,+2 23 ) 


4,8 


.SIN,c=4/pi 




t-2 23 ,+2 23 ) 
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/EXP 



PURPOSE: .EXP with no error return 



PROGRAM TYPE = 7 



ROUTINE IS:U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



/EXP 


.EXP 


JSB 


/EXP 




DEF 


* +3 




DEF 


<resu 


lt> 


DEF 


X 




->■ 







METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/EXP 


Double real 


Double real 


Hot callable 


Not callable 


Hot callable 


See .EXP 



NOTES: 
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/EXTH 



PURPOSE: Compute 2 X 2 or TANH(Z) for small double real Z 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE = 7 



ROUTINE IS:U 



/EXTH 



.PWR2, .TADD, TRNL 



LDA <N> 
JSB EXTH 
DEF <result> 
DEF <Y> 



METHOD: If N equals -32768, TANH is computed, otherwise EXP is. The argument Y is the 
result of range reduction by /CMRT, so it has been scaled down by 2/ln(2) for 
EXP, and 4/ln(2) for TANH. The following approximations are used: 



0.5*(EXP(Y)-1)=P(Z)/(Q(Z)-P(Z)) 
TANH(Y)=P(W)/Q(W) 



P(X) = X-(P Q +X^ 



[P 1 + x 2 -p 2 ) 



Q(X) 



+ X 2 -(Q 1 + X 2 )) 



Z=Y*(2/ln(2)) 
W=Y*(4/ln(2)) 

PO = 1513.86417304653562 
PI = 20.2017000069531260 
P2 = .023094321272953857 
Q0 = 4368.08867006741699 
Ql = 233.178232051431036 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



/EXTH 


Double real , 


Integer 


Double real 


Not callable 


Not callable 


Not callable 


None 



NOTES: 



1) No error checking is performed. The final exponent will be in error by a 
multiple of 128 if overflow or underflow occurs. 
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/LOG 



PURPOSE: 



■LOG with no error return 



PROGRAM TYPE = 7 



ROUTINE IS:U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



/LOG 


.LOG , .ENTR 


JSB /LOG 
DEF * +3 
DEF <result> 
DEF x 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/LOG 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


See .LOG 



NOTES: 
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/LOGO 



PURPOSE: .LOGO with no error return. 



PROGRAM TYPE =7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: 



METHOD: 



/LOGO or /LOGT 



.LOGO , .ENTR 



JSB /LOGO or /LOGT 
DEF * +3 
DEF <result> 
DEF x 



ATTRIBUTES: 



Parameters : 

Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



ENTRY POINTS: 



/LOGO or /LOGT 



Double real 



Double real 



Not callable 



Not callable 



Not callable 



See .LOGO 



NOTES: 
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/SIN 



PURPOSE: .SIN with no error return 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



/SIN 


.SIN , .ENTR 


JSB /SIN 
DEF * +3 
DEF <result> 
DEF x 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/SIN 


Double real 


Double real 


Not 


callable 


Not 


callable 


Not 


callable 


See 


.TSCS 



NOTES: 
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/SQRT 



PURPOSE: .SQRT with no error return 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS: U 



METHOD: 



/SQRT 



.SQRT , .ENTR 



JSB /SQRT 
DEF *+3 

DEF < result > 
DEF x 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/SQRT 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


See .SQRT 



NOTES: 
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/TAN 



PURPOSE: .TAN with no error return 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



ROUTINE IS:U 



/TAN 


.TAN , .ENTR 


JSB /TAN 
DEF * +3 
DEF <result> 
DEF x 

-*- 



METHOD: 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters : 
Result: 

FORTRAN: 

FORTRAN IV: 

ALGOL: 

Errors : 



/TAN 


Double real 


Double real 


Not callable 


Not callable 


Not callable 


See .TAN 



NOTES: 
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/TINT 



PURPOSE: Conversion of double precision to integer. 



PROGRAM TYPE = 7 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



METHOD: Calls .TINT 



/TINT 



.TINT 



JSB /TINT 
DEF *+2 

DEF <arguments> 
-»■ (result in A) 



ROUTINE IS: U 



ATTRIBUTES: 



Parameters 
Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 









ENTRY 


POINTS: 


/TINT 


Double precision 


Integer 


Not call< 


able 










Callable 


as IDINT 


with y 


option 






Not callable 


Overflow 


set if a 


rgument 


outside [. 


2 15 


,2 15 ) 



NOTES: 
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SECTION IV 



THE FORMATTER 



THE FORMATTER 



The Formatter is a subroutine that is called by relocatable programs to perform formatted data trans- 
fers, to interpret formats, to provide unformatted input and output of binary data, to provide free 
field input, and to provide buffer-to-buffer conversion. The Formatter is first given a string of 
ASCII characters that constitutes a format code. This "format" tells the Formatter the variables 
to transfer, the order, and the conversion (on input, ASCII characters are converted to binary values 
and on output, binary values are converted to ASCII). Then the calling program gives the Formatter 
a string of variables to be output or filled by input. 

In FORTRAN and, ALGOL programming, the programmer first defines a FORMAT string through FORMAT 
statements. 



Example: 

Fortran: 10 FORMAT (15 ,A2 ,5F1 2. 3) 

identifier actual format 
algol : FORMAT F23 (I5,A2,5F12.3) ; 

identifier actual format 

Then the programmer uses a READ or WRITE statement giving the logical unit number of the device to 
be used, the format identifier, and a list of variables. 



Example: 

Fortran: 20 WRITE (2,10) INT,LETR,ARRAY 

logical format variable 
unit identifier list 

algol: WRITE f^,F23, INT, LETR, VARI); 

logical format variable 
unit identifier list 

The FORTRAN and ALGOL Compilers automatically generate the correct calls to the Formatter. In 
Assembly Language, the programmer is responsible for all calls to the Formatter. 

Two different formatters are available in DOS and RTE software systems: 

1. FORTRAN Formatter (product no. 24153) 

2. FORTRAN IV Formatter (part no. 24998-16002) 

The FORTRAN Formatter requires less memory than the FORTRAN IV Formatter. The FORTRAN IV 
Formatter may be used with HP FORTRAN programs, but the FORTRAN Formatter may not by used with 
FORTRAN IV programs. 

The FORTRAN IV Formatter includes all the features of the FORTRAN Formatter and double precision 
and complex number conversion. 
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INPUT AND OUTPUT 



When the programmer uses a READ or WRITE statement in FORTRAN and ALGOL, the compiler generates all 
the necessary calls to the Formatter. 

FORTRAN and ALGOL use of the formatter is documented in the following manuals: 

HP FORTRAN (02116-9015) 

RTE FORTRAN IV Reference Manual (92060-90023) 

HP ALGOL (02116-9014) 

The following description of the formatter is provided for the Assembly language programmer. 

In Assembly Language the programmer is responsible for all calls to the Formatter. For each 1/0 
operation, the program must first make an "Initialization" call (entry points . DI0 and .BIO). This 
call establishes the format to be used (if any), and the logical unit and a way to say whether the 
operation is input or output. Then, for each data item, the program must make a separate call which 
depends on the type of data. Finally, for output only, the program must make a termination call 
that tells the Formatter to output the last record. 



Figure 4-1 flowcharts the process of selecting an input calling sequence, 
the output calling sequence. 



Figure 4-2 flowcharts 



Variable items in the calling sequences include: 



unit 
forma t 

end of list 

real 

integer 

double 

length 



address 



is the logical unit number of the desired 1/0 device. 

is the label of an Assembly Language ASC pseudo-instruction that defines 
the format specification. 

is the location following the last data call to the formatter. When an 
error occurs in the format specification or the input data, the formatter 
returns to this location. 

is the address of the real variable. 

is the address of the integer variable. 

is the address of the double precision variable 

is the number of elements (not the number of memory locations) in the 
array. Maximum length of an external physical record may be specified by 
calling LGBUF. Otherwise the maximum external length is 67 words for for- 
matted data and 60 words for binary data. Formatted data blocks can be of 
any length if the format breaks the data in multiple records using "/" and 
unlimited groups. If binary data exceeds 60 words, the record is read in 
or out and the formatter skips to the next record. (Note: For this reason, 
binary data should be read in with the same variable list as that used to 
write it out. ) 

is the first location of the array. 
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RECORDS 

The formatter cannot be used for disc I/O. FMTIO does all input and output through calls to 
REIO. The subroutine LGBUF (see p. 4-34) can be used to specify the address and length of the 
I/O buffer. If the address and length of the I/O buffer are not given by calling LGBUF, a 
buffer within FMTIO will be used, and the maximum length will be 60 words for unformatted data 
or 67 words for formatted data. 
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INITIAL CALL 



LDA unit 
CLB, INB 
JSB .BIO. 



INITIAL 


CALL 


LDA 


unit 




CLB 


INB 




JSB 


.DIO. 




OCT 




DEF 


end of list 



LDA unit 

CLB, INB 

JSB .DIO. 

DEF format 

DEF end of list 



tote: If the length in "DEC length" is 
negative, bits 14:0 are treated 
as the address of the length. 




DATA CALL 



LDA Length 
LDB Address 
JSB .TAR. 

or 
JSB .TAY. 
DEF Address 
DEC Length 



DATA CALL 



LDA Length 
LDB Address 
JSB .RAR. 

or 
JSB .RAY. 

DEF Address 
DEC Length 



DATA CALL 



LDA Length 
LDB Address 
JSB .IAR. 



JSB .IAY. 
DEF Address 
DEC Length 



DATA CALL 



LDA Length 
LDB Address 
JSB .XAR. 



JSB .XAY. 
DEF Address 
DEC Length 



DATA CALL 



JSB . IOR. 

DST Real 



JSB .RIO. 
DEF Real 



DATA CALL 



JSB .101. 
STA Integer 



JSB .110. 
DEF Integer 



DATA CALL 



JSB .XIO. 
DEF Extended 



DATA CALL 



JSB .TIO. 
DEF Double 
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INTEGER 
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DATA CALL 




DATA CALL 




DATA CALL 




DATA CALL 




DATA CALL 




DATA CALL 


DATA CALL 




DATA CALL 


LDA Length 
LDB Address 
JSB .TAR. 

or 

JSB .TAY. 
DEF Address 
DEC Length 


LDA Length 
LDB Address 
JSB .RAR. 

or 

JSB .RAY. 
DEF Address 
DEC Length 


LDA Length 
LDB Address 
JSB .IAR. 

or 

JSB . IAY. 

DEF Address 
DEC Length 


LDA Length 
LDB Address 
JSB .XAR. 

or 

JSB .XAY. 
DEF Address 
DEC Length 


DLD Real 
JSB . IOR. 

or 

JSB .RIO. 
DEF Real 


LDA Integer 
JSB .101. 

or 

JSB .110. 
DEF Integer 


JSB .XIO. 

DEF Double 


JSB .TIO. 
DEF Douiie 




1 
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FORMATTED INPUT/OUTPUT 

Formatted input/output is distinguished from unformatted input/output by the presence of an ASCII 
string format specification. (Refer to format definition in calling sequence items previously 
defined.) The ASCII characters consist of a series of format specifications or codes. Each code 
specifies either a conversion or an editing operation. Conversion specifications tell the formatter 
how to handle each variable in the data list. 

Format specifications may be nested (enclosed in parenthesis) to a depth of one level. In the 
FORTRAN IV formatter they may be nested to a depth of four levels. Conversion specifications tell 
the formatter how to convert variables into ASCII output and how to convert ASCII input into binary 
variable data. Editing specifications tell the formatter what literal strings to output, when to 
begin new records and when to insert blanks. 



FORMAT SPECIFICATIONS 

A format has the following form: (spec,.. . ,r(spec,.. .) , spec,. . .) 
where: 

spec is a format specification and r is an optional repeat factor which must be an integer. 



Conversion Specifications 

rEw.d Real number with exponent (E specification) 

rFw.d Real number without exponent (F specification) 

rlw Decimal Integer (I specification) 

r@w Octal Integer 



„ ,, . , 0, K, and @ specification 

rKw,r0w Octal Integer ' y 

rAw,rRw ASCII character (A and R specifications) 

srDw.d Double precision number with exponent (D specification) . 

srGw.d Real number with digits (G specification) I FORTRAN IV formatters 

rLw Logical variable (L specification) J only 



Editing Specifications 

nX Blank field Tn tab to space n 

nH character string TLn tab left n spaces 

r" character string" TRn tab right n spaces 

r' character string' 
r/ begin new record 

where: 

r is an integer repetition factor 

w and n are non-zero integer constants representing the width of a field in the external 

character string 
d is an integer constant representing the digital fraction in the part of the string 
s is an optional scale factor 
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E SPECIFICATION 



The E specification defines a field for a real number with exponent. 



Output 

On output, the E specification converts numbers (integers, real, or double precision) in memory into 
character form. The E field is defined in a format by the presence of the E specification (Ew.d). 
The field is w positions in the output record. The variable is printed out in floating-point form, 
right justified in the field as 



■.x, . . .x , E+ee 
1 d - 



where 

X-....X. are the most significant digits of the value, the e's are the digits of the exponent 
w is the width of the field, d is the number of significant digits, and the minus 
sign is present if the number is negative. 

The w must be large enough to contain the significant digits (d), the sign, the decimal point, E, and 
the exponent. In general, w should be greater than or equal to d + 6. 

If w is greater than the number of positions required for the output value, the quantity is right 
justified in the field with spaces to the left. If w is not large enough (e.g., less than d + 6), 
then the value of d is truncated to fit in the field. If this is not possible, the entire field is 
filled with dollar signs ($). 



EXAMPLES: 



FORMAT 

E10.3 

E10.3 

E12.4 

E12.4 

E7.3 

E5.1 



DATA ITEM 


+12. 


34 


-12. 


.34 


+12. 


34 


-12. 


.34 


+12. 


34 


+12. 


34 



RESULT 

_.123E+02 
.-.123E+02 

1234E+02 

_-.1234E+02 
.12E+02 
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Input 

The E specification on input tells the formatter to interpret the next w positions in the record as 
a real number with exponent. The formatter then converts the field into a number and stores it into 
the variable specified in the variable list. 

The input field may consist of integer, fraction, and exponent subfields 

integer fraction exponent 
field field field 

+n n.n nE+ ee 

where the format equals Ew.d. 



Rules for E Field Input: 

1. The width of the input item must not be greater than w characters. 

2. Initial + and E are optional. 
Example: 123 _ = +123>> 12<+6 = ]2£6 

3. If E is present, the initial + of the exponent is optional. 
Example: 1234E06 

4. If the decimal point is left out, the formatter inserts it by multiplying the integer 
field by 10" d . 



Example: If format = E94j 12 3456E+6 = 12.3456E+6 



5. Spaces are ignored in the FORTRAN formatter and 4K Formatter, but in the FORTRAN IV 
Formatter blanks are evaluated as zeroes (0). 

6. Any combination of integer field, fraction field, and exponent field is legal: 

123.456E6 

.456E6 

.456 
123. E6 
123. 

E6 
(all blanks = 0) 



NOTE: Input to F, G, D and I fields is interpreted in the same way as the 
E field. 
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F SPECIFICATION 

The F Specification defines a field for a fixed point real number (no exponent). 



Output 

On output, the F specification converts numbers (integer, real, or double precision) in a format by 
the presence of the F specification (Fw.d). The field is w positions in the output record. The 
variable is printed out right-justified in fixed-point form with d digits to the right of the decimal 
point: 

integer fraction 
field field (d) 

-X x.xx. .X 



Where w is the total width of the field, the negative sign (-) is optional (positive numbers are 
unsigned), d is the length of the fraction field (empty if d=0). 

If w is greater than the number of positions required for the output value, the quantity is right 
justified in the field with spaces to the left. If w is not large enough to hold the data item, 
then the value of d is reduced to fit. If this is not possible, the entire field is filled with 
dollar signs ($). 



Examples: 



FORMAT 


DATA ITEM 


RESULT 


F10.3 


+12.34 




_J2.340 


F10.3 


-12.34 




_-12.340 


F12.3 


+12.34 




12.340 


F12.3 


-12.34 




-12.340 


F4.3 


+12.34 




12.3 


F4.3 


+12345. 


12 


$$$$ 



Input 

Input to an F field is identical to an E field. All the rules under the E specification apply 
equally to the F specification. 
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D SPECIFICATION 

The D specification is available only on the FORTRAN IV formatter. The effect is exactly the same 
as using an E specification with exception that on output "D" begins the exponent field instead 
of "E". 



Examples: 



D10.3 
D12.4 
D7.3 



G SPECIFICATION 

The G specification is available only with the FORTRAN IV formatter and defines an external field for 
a real number. The magnitude of the number determines whether or not there is an exponent field. 

Output 



On output, the G specification converts numbers (integer, real, or double precision) in memory into 
character form. The G field is defined in a format by the presence of the G specification (Gw.d). 
The field is w spaces wide, with d significant digits. The format of the output depends on the 
magnitude of the number (N): 



Magnitude 

0.1 < N<1 
1 < N<10 



Output Conversion 

F(w-4).d,4X 
F(w-4).(d-l),4X 



10 d - 2 <N<10 d - 1 
10 d " 1 <N<10 d 



Otherwise 



F(w-4).1,4X 
F(w-4).0,4X 
sEw.d (s is scale factor) 



NOTE: The scale factor is applied only when the G conversion 
is done as E. 



Sample Output: 



The following real numbers are converted under a G10.3 specification: 

Number Output Format 



.05234 
.5234 
52.34 
523.4 
5234. 



..523E-01 

,.523 

.52.3 

.523 

..523E+04 



Input 



Input processing of a Gw.d specification is identical to that of an Ew.d specification. 
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OPTIONAL SCALE FACTOR (FORTRAN IV FORMATTER ONLY ) 

The optional scale factor for F,E,G, and D conversions is of the form: 

nP 

The scale factor, n, is an integer constant or a minus followed by an integer constant. Upon 
initialization of the formatter, the scale factor equals zero. Once a scale factor is encountered, 
it remains in effect for all subsequent F,E,G and D fields until another scale is encountered. 

The scale factor effects are as follows: 

1. F,E,G,D input (provided no exponent exists in the external field): 

internally represented number equals externally represented number times ten raised to 
the -nth power. That is, IN=XN*10" n where IN and XN represent internal and external 
numbers, respectively. 

2. F,E,G,D, input with exponent field in external field: no effect. 

3. F output: external number equals internal number times ten raised to the nth power, ie, 



XN = IN*10 



n 



E,D output: mantissa is multiplied by 10 and the exponent is reduced by n. If n < 0, 
there will be -n leading zeroes and d + n significant digits to the right of the decimal 
point. If n>o, there will be n significant digits to the left of the decimal point and 
d-n + 1 to the right. The scale factor when applied to E and D output has the effect of 
shifting the decimal point to the left or right and adjusting the exponent accordingly. 
Note that when n > 0, there are d + 1 significant digits in the external field. 

G output: If F conversion is used, the scale factor has no effect. If E conversion is 
used, the scale factor has the same effect as with E output. 



Examples of 
Input conversion: 

External field 



Format 



Internal number 



528.6 


1PF10.3 


52.86 


.5286E+03 


1PG10.3 


528.6 


528.6 


-2PD10.3 


52860. 


Examples of 






Output conversion: 






Internal number 


Format 


External field 


528.6 


1PF8.2 


,5286.00 


.5286 


2PE10.4 


52.860E-02 


5.286 


-1D10.4 


..O529D+02 


52.86 


1PG10.3 


_52.9 


-5286. 


1PG10.3 


-5.286E+03 
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I SPECIFICATION 



The I specification defines a field for decimal integer. 



Output 

On output, the I specification converts numbers (integer, real, or double precision) in memory into 
character form. The I field is defined in a format by the presence of the I specification (Iw). 
The field occupies w positions in the output record. The variable is converted to an integer, if 
necessary, and printed out right- justified in the field (spaces to the left) as: 

..._x, ...x d 
w 

where 

x x^ are the digits of the value, (max = 5), w is the width of the field in characters, 

and the minus sign (-) is present if the number is negative. 

If the output field is too short, the field is filled with dollar signs ($). 



Format 


Data Item 


Result 


15 


-1234 


-1234 


15 


+12345 


12345 


14 


+12345 


$$$$ 


16 


+12345 


J 2345 



Input 



The I specification on input (Iw) is equivalent to an Fw.O specifications. The input field is read 
in, the number is converted to the form suitable to the variable (integer, real, double real), and 
the binary value is stored in the variable location. 



Duri 



ng input, if a value is less than -32768-, Q , the value is converted to +32767. 



Examples: 



Format 


Input 


Fi< 


2ld 


Internal Result 


15 


-J23 






-123 


15 


12003 






12003 


14 


J 02 






102 


11 


3 






3 
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0,K,@ SPECIFICATION (NOT AVAILABLE WITH 4K FORMATTER ) 

These three specification types (0,K,@) are equivalent; they are all used to convert octal (base eight) 
numbers. 



Output 

On output, the octal specification (0,K,@) converts an integer value in memory into octal digits for 
output. The octal field is defined in a format by the presence of the 0(0w), K(Kw), or @(@w) 
specification. The field is w octal digits wide. The integer value is converted and right justified 
in the field as: 




where 

d^ d n are the octal digits (6 maximum), . .»„ are lead spaces, and w is the width. 

If w is less than 6, the w least significant octal digits are written. 



Input 

On input, the octal specification tells the formatter to interpret the next w positions in the input 
record as an octal number. The formatter converts the digits into an octal integer and stores it 
into an integer variable. 

If w is greater than or equal to six, up to six octal digits are stored; non-octal digits with the 
field are ignored. 

If w is less than six or if less than six octal digits occur in the field, the result is right- 
justified in the variable with zeroes (0) to the left. 

If the value of the octal digits in the field is greater than 177777, the results are unpredictable. 



Examples: 



Format 


Input Field 


Internal Result 


@6 


123456 


123456 


@7 


-123456 


123456 


2K5 


2342342342 


023423 and 042342 


2@4 


.396E-05 


000036 and 000005 
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L SPECIFICATION 

The L specification is available only with the FORTRAN IV formatter and allows 
input or output of logical values: 

TRUE = T (external), negative (internal) 
FALSE = F (external), non-negative (internal) 

Output 

On output, the L specification converts numbers (integer, real, or double precision) in memory into 
their external logical value (T or F). The L field is defined by the presence of the L specification 
(Lw). The field is w spaces wide, consisting of w-1 blanks followed by a T or F. 



Input 

On input, the L specification converts an external character field into the internal representation 
of true or false. The L specification (Lw) specifies a field w spaces wide, consisting of optional 
blank, a T or F and optional trailing characters. A T is converted to -32,768 (100000 g ) and an F 
is converted to 0. 



A AND R SPECIFICATIONS 

The A and R specifications define a field of one two eight ASCII characters. ASCII characters are 
stored as two 8-bit codes per integer variable, four 8-bit codes per real variable, six per 
extended real, and eight per double real. 

The number of characters per variable will always be referred to as "v". 

Output 

On output, the A and R specifications transfer ASCII character codes from memory to an external 
medium. The field is defined by an A or R specification (Aw or Rw). The field is w positions wide 
in the output record. For w > v, A and R are equivalent: the field is blank filled to the left of 
the data. For w > v, the A specification uses the left-most characters in the variable, and the R 
specification (and A if 0LDI0) uses the right-most. 

Examples: 



Variable 


Format 


Output Format 


ABCD 


A4 & R4 


ABCD 


ABCD 


A6 & R6 


_ABCD 


ABCD 


A3 


ABC 


ABCD 


R2 


CD 
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A string of n*v characters may be output from (or input to) n variables (e.g. using an array 
of length n) using a repeat factor. 



Examples: 



Variable Type 

4 integers 

2 reals 

1 double real 



Variables 

AB, CD, EF, GH 
ABCD, EFGH 
ABCDEFGH 



Format 

4A2 
2A4 

A8 



Input or Output 

ABCDEFGH 
ABCDEFCH 
ABCDEFGH 



Input 

On input, the A and R specifications transfer ASCII character codes from an external medium to in- 
ternal memory. The field is defined by an A or R specification (Aw or Rw). The field is w positions 
wide. If w > v, the right most two characters are taken from the input field. 

For the A specification with w<v, data is left-justified and blank filled in the variable. For the 
R specification (and A if OLDIO) with w<v, data is right-justified and zero-filled. 



Examples: 



Input Fie 


:ld 


Format 


Real Variable 


MN 




A2 


MN„„ 


MN 




R2 


zzMN 


MNOP 




A4.R4 


MNOP 


MNOPQRS 




A7,R7 


PQRS 



z = binary zero 
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In order to read in a string of more characters than fit in the data type used, the repeat 
factor must be used. 



Examples: 

real 
integer 



Input Field 

MNOPQRSTUVWX 

FGHIJK 



Format 

3A4 

3A2 



Variable 
MNOP.QRST.UVWX 
FG.HI.JK 



For w < the variable size, the FORTRAN IV and FORTRAN Formatter differ. 



FORTRAN Formatter 

In FORTRAN the A is the same as the R. For w = 1, A and R read in one character and places it in 
the right half of the variable with binary zeroes in the left. 



Example: 



Input 

X 



Format 
Al or Rl 



Variable 






oooooooo 2 


X 



left right 
computer word 



FORTRAN IV Formatter 



The R specification is the same as in the FORTRAN Formatter. 

For Al , one character is read in and placed in the left half of the computer word. An ASCII blank 
is placed in the right half. 



Exampl e : 



Input 
X 



Format 

Al 



Variable 



To Insure Compatibility with previous software: 

The Formatter can be modified at run-time to interpret the A specification as the R specification. 
This is done by calling the OLDIO entry point: 

CALL OLDIO 
To change back to a FORTRAN IV A specification call NEWIO: 

CALL NEWIO 
The Formatter always begins operation in the NEWIO state. 
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X SPECIFICATION 



The X specification produces spaces on output and skips characters on input. The comma (,) following 
X in the format is optional. 



Output 



On output, the X specification causes spaces to be inserted in the output record. The X field is 
defined by the presence of an X specification (nX) in the format, where n is the number of spaces 
to be inserted. (X alone = IX; 0X is not permitted.) 



Examples: Format 



E8.3,5X,F6.2,5X,I4 

Data Values 

+123.4, -12.34, -123 

Output Field 

.123E+03 -12.34 -123 



Input 

On input, the X specification causes characters to be skipped in the input record. The X field is 
defined by the presence of an X specification (nX) in the format, where n is the number of characters 
to be skipped. (X alone = IX; 0X is not permitted.) 



Examples: Format 

8X,I2,10X,F4.2,10X,F5.2 

Input Field 

WEIGHT _10_PRICE„Jl .98_T0TAU J19.80 

Internal Values 

10, 1.98, 19.80 
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' ' , " ", H SPECIFICATIONS (LITERAL STRINGS) 

The H and quotation mark specifications provide for the transfer, without conversion, of a series of 
ASCII characters (except that quotation marks cannot be transferred using " " or ' '). A comma after 
this specification is optional. 

Output 

On output, the ASCII characters in the format specification (there is no associated variable since 
this is only an editing specification) are output as headings, comments, titles, etc. The specifi- 
cations are of the form: 

nHc!C 2 ...c n or "c 1 c 2 ...c n " or 'c 1 c 2 ...c n ' 

where 

n is the numbers of characters to be transmitted, CiC 2 ...c are the characters themselves, 
and H or the quotation marks are the specification types. 

(H alone = 1H; 0H is not permitted.) 

Note that with quotation marks, the field length is not specified; that is determined by the number of 
cnaracters between the quotation marks. 

Examples: Format Result 

2|0H.THIS.IS.AN„EXAMPLE .THIS IS AN EXAMPLE 

"THIS. ALSO .IS.AN. EXAMPLE" THIS. ALSO. IS.AN. EXAMPLE 

3"ABC" ABCABCABC 

3("ABC") ABCABCABC 

2'AtsCD' ABCDABCD 
Input 

If H is used on input, the number of characters needed to fill the specification is transmitted from 
the input record to the format. A subsequent output statement will transfer the new heading to the 
output record. In this way, headings can be altered at run-time. 

If quotation marks are used on input, the number of characters within the quotation marks is skipped 
on the input field. 



Example: Format 

31H 

Input 

H.INPUT.ALLOWS. VARIABLE. HEADERS 

Result 

31 HH.INPUT.ALLOWS. VARIABLE. HEADERS 
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/ SPECIFICATION 

The / specification terminates the current record. The / may appear anywhere in the format and need 
not be set off by commas. Several records may be skipped by preceding the slash with a repetition 
factor (r-1 records are skipped for r/). 

On output, a new record means a new line (list device), a carriage return-linefeed (punch device), 
or an end-of- record (magnetic tape). Formatted I/O records can be up to 67 words 034 characters) 
long. 

On input, a new record is a new "unit record" (card reader), is terminated by a carriage return- 
linefeed (teleprinter), or is terminated by an end-of-record (magnetic tape). 

NOTE: when the formatter reaches the end of a format and still 
has values to output, it starts a new record. 



Examples: Format 

22X.6HBUDGET/// 6HWEIGHT.6X, 5HPRICE.9X, 
5HT0TAL.8X 

Result 

(line 1) BUDGET 

(line 2) 
(line 3) 
(line 4) WEIGHT PRICE TOTAL, 
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HOW TO PUT FORMATS TOGETHER 

1. When two specifications follow each other they are concatenated. 

E field I field 

Format: E9.4.I6 



9 characters 



6 characters 



2. To leave space between numbers use X. 

E field 
Format: E9.4.3X, 16 ' 



I field 



9 characters 


3 characters 


6 characters 



3. To start a new Line, use / 

Format: E9.4/I6 I 9 characters 



E field 



I field 



6 characters 



E 


X 


I 



4. Specifications can be gathered together into groups and surrounded by parentheses. 



Example: (E9.3, 2X, 16) 



These groups can be nested one level deep, except in the FORTRAN IV Formatter they can be four levels 
deep. For example, 

(E9.3,3(2X,I6)) 



E 


X 


I 


X 


I 


X 


I 



(E9.3,3(2X,I6),2(2X,I8)) 



E 


X 


I 


X 


I 


X 


I 


X 


I 


X 


I 



5. Use the repetition factor to repeat single specifications (except nH) or groups of 
specifications. This is done by preceding the specification or parenthetical groups 
with a repeat count, r. The conversion is repeated up to r times, unless the list of 
variables is exhausted first. 

3(E9.3,2X,I6,2X)/ 



E 


X 


I 


X 


E 


X 


I 


X 


E 


X 


I 


X 




E 


X 


I 


X 


E 


X 


I 


X 


E 


X 


I 


X 



6. Use the principle of unlimited groups -- when the formatter has exhausted the specifications 
of a format and still has list items left, it inputs a new record for a READ or outputs 
the present record for a WRITE and returns to the last, outer-most unlimited group within 
the format. An unlimited group is a set of specifications enclosed In parenthesis. If 
the format has no unlimited groups, the formatter returns to the beginning of the format. 
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Example: Format = (I5,2(3X,F8. 4,8(12)) -i 

Format = (15, 2(3X,F8. 4, 8(1212)) ,4X, 3(16)) i 
Format = (I5,3X,4F8.4,3X) -i ' 

7. Keep in mind the accuracy limitations of your data. Although the formatter will print 
out or read in as many digits as specified, only certain digits are significant: 

Integer variables can be between -32 ,768,q and +32,767, Q . 

Floating-point numbers can guarantee 6 digits of accuracy (plus exponent). 

Double precision can guarantee 11 digits of accuracy (plus exponent). 

8. On input to the FORTRAN IV formatter blanks are interpreted as zero digits, while on 
input to the FORTRAN Formatter, blanks are not evaluated as part of the data item. 

The FORTRAN IV Formatter can be made to act exactly as the FORTRAN Formatter does by 
calling entry point OLDIO. This condition can be reversed by calling entry point NEWIO. 
These calls are made in FORTRAN as: 

CALL OLDIO 
CALL NEWIO 

In Assembly Language as: 

JSB OLDIO JSB NEWIO 
DEF *+l DEF *+l 
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FREE FIELD INPUT 



When free field input is used, a format specification is not used. Special symbols are included 
within the input data to direct the conversion process: 

space or, Data item delimiters 

/ Record terminator 

+ - Sign of item 

. E + - D Floating point number 

@ Octal integer 

" . . . " Comments 

All other ASCII non-numeric characters are treated as spaces (and delimiters). Free field input 
may be used for numeric data only. 



DATA ITEM DELIMITERS 

Any contiguous string of numeric and special formatting characters occurring between two commas, a 
comma and a space, or two spaces, is a data item whose value corresponds to a list element. A 
string of consecutive spaces is equivalent to one space. Two consecutive commas indicate that no 
data item is supplied for the corresponding list element; the current value of the list element 
is unchanged. An initial comma causes the first list element to be skipped. 

Example: 1) Input data: 1720, 1966, 1980, 1392 2) Input data: 1266,, 1794, 2000 

Result in memory: 1720 Result in memory: 1266 

1966 1966 (Value of 1966 

1980 1794 is unchanged) 

1392 2000 

FLOATING POINT INPUT 

The symbols used to indicate a floating point data item are the same as those used in representing 
floating point data for Format specification directed input: 



Integer Fraction Exponent 
Field v Field Field 



\ 



+n. ..n.n. . .n+ee 
n * E 

I D (in FORTRAN IV Formatter only) 

decimal point 



If the decimal point is not present, it is assumed to follow the last digit. 

Example: Input Data: 3.14, 314E-2, 3140-3, .0314+2, .314E1 
All are equivalent to 3.14 
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OCTAL INPUT 

An octal input item has the following format: 
@x r ..x d 

The symbol @ defines an octal integer. The x's are octal digits each in the range of through 7. 
List elements corresponding to the octal data items must be type integer. 



RECORD TERMINATOR 

A slash within a record causes the next record to be read as a continuation of the data list; the 
remainder of the current record is skipped as comments. 

Example: Input data: 987, 654, 321, 123/DESCENDING 
456 

Result in memory: 987 654 321 123 456 

COMMENTS WITHIN INPUT 

All characters appearing between a pair of quotation marks in the same line are considered to 
be comments and are ignored. 

Examples: "6.7321" is a comment and ignored 
6.7321 is a real number 
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INTERNAL CONVERSION 



The Formatter provides the programmer with the option of using the conversion parts of the Formatter 
only without any input or output. This process is called "internal conversion." 

On "input", ASCII data is read from a buffer and converted according to a format (or free field) 
into a variable list. (This is known as decoding.) 

On "output", binary data is converted to ASCII according to a format and stored in a buffer. (This 
is known as encoding.) 

Internal conversion ignores "/" specifications or unlimited groups. The concept of records does 
not apply during internal conversion. 

OUTPUT CALLING SEQUENCE (BINARY TO ASCII CONVERSION): ENCODING 

CLA 

CLB 

JSB .DIO. 

DEF buffer (destination) 

DEF format 

DEF end of list 

Calls to define each variable 
(Same as regular calls) 

Termination Call 

(Same as regular calls) 

where buffer is a storage area for the ASCII "output" to be stored into. 



INPUT CALLING SEQUENCE (ASCII TO BINARY CONVERSION): DECODING 

Formatter Free Field 

CLA CLA 

CLB, INB CLB, INB 

JSB .DIO. JSB .DIO. 

DEF buffer DEF buffer 

DEF format ABS 

DEF end of list DEF end of list 

Calls to define each variable 
(Same as regular calls) 

where buffer is a storage area containing ASCII characters which will be converted by the 
Formatter into binary values. 
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BUFFERED I/O WITH THE FORMATTER 



Normally, when a program uses the Formatter, it can only execute one I/O operation at a time. 
However, the internal conversion feature of the Formatter can be used with direct calls to .IOC. 
(through the MAGTP subroutine) to provide both buffered and formatter I/O. 

The following flowchart shows how a program can read in data from two units (Ul and U2) into two 
buffers (Bl and B2) at the same time by calling .IOC. When unit Ul is complete, buffer Bl is 
converted into list LI by the Formatter (while input continues on unit U2). 























( START J 
















.IOC. - Begin read 
from Ul into Bl 
















^ Ul = U2 


) 


No 


xb 








"^ 


Yes 






.IOC. - Begin read 
from U2 into B2 






S" 


















[ .IOC. - Ul complete? 


1 




N - 






No 




No 












Yes 




r^.IOC. - Ul complete 










Yes 






.IOC. - Begin read 
from U2 into B2 














s 








*s. 






FRMTR - Convert Bl 
into LI 








N 












s 




f .IOC. - U2 complete? 


) 






No 








Yes 








FRMTR - Convert B2 
into L2 








£ 


s) 
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EXAMPLE CALLING SEQUENCES 



EXAMPLE 1: FORMATTED INPUT 



Purpose 

A 20 character double precision number and a 10 character integer are read and converted from the 
first record. 80 characters are read from the second record and stored in ASCII form in the array 
ALPHA. Execution continues with the instruction at ENDLS. 



LDA 


INPUT 


CLB.INB 


JSB 


.DIO. 


DEF 


FMT 


DEF 


ENDLS 


JSB 


.XIO. 


DEF 


DP 


JSB 


.110. 


DEF 


I 


JSB 


.IAY. 


DEF 


ALPHA 


DEC 


80 



ENDLS 



Input unit number 

Input flag 

Initialization enterance 

Location of format 

End of list 

Declare double precision variable 

Location of variable 

Declare integer variable 

Location 

Declare integer array 

Location 

Number of elements 

(Continue program here) 



INPUT 


DEC 


1 


DP 


BSS 


3 


I 


BSS 


1 


ALPHA 


BSS 


80 


FMT 


ASC 


9, 



9,(D2O.12,I10/8OAi; 



Unit number 

Double precision variable 

Integer variable 

Integer array 

Format specification 
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EXAMPLE 2: UNFORMATTED OUTPUT 



Purpose 



1000 2-word elements in the array ARRAY are punched on the standard punch unit. The output will 
consist of 60 word records (59 data words and 1 control word) until the entire array is punched. 



LDA PUNCH 

CLB 

JSB .BIO 

LDA =D1000 

LDB ADRES 

JSB .RAR. 

JSB .DTA. 



Output unit number 

Output flag 

Binary initialization enterance 

Number of elements in array 

Location of array 

Real (2-word) array enterance 

Output termination 



PUNCH DEC 4 
ADRES DEF ARRAY 
ARRAY BSS 2000 



Unit number 

Location of ARRAY 

Defines 1000 2-word elements. 



EXAMPLE 3: INTERNAL CONVERSION AND FREE FIELD INPUT 



Purpose 



The ASCII data starting at BUFFR is converted in free field form to binary. R will contain the 
binary representation of .0001234 and I will contain the binary representation of 28. 

Internal conversion flag 
ASCII to binary flag 
Initialization enterance 
Location of ASCII data 
Specifies ASCII data is in free-field form 
End of list 
Declare real variable 
Store binary item in R 
Declare integer variable 
Store in I 
ENDLS -> 



CLA 




CLB.INB 




JSB 


.DIO. 


DEF 


BUFFR 


ABS 





DEF 


ENDLS 


JSB 


.IOR. 


DST 


R 


JSB 


.101. 


STA 


I 



R 


BSS 


2 


I 


BSS 


1 


BUFFR 


ASC 


6,123.4E-6,28 



Real variable 

Integer variable 

ASCII data to be converted to binary. 
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FMT.E 

PURPOSE: Provides ability to change output LU # for FMTIO 
Routine .FMT.E is defaulted by 6. 



PROGRAM TYPE = 7 



ROUTINE IS: U 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



FMT. 


E 








None 


EXT 


FMT 


E 






LDA 


LU 


Des 


red 


LU 


STA 


FMT 


E 







METHOD: 



Method: A zero value for FMT.E will cause error messages 
to be inhibited. 



ATTRIBUTES: 



ENTRY POINTS: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



FMT 


E 






Logi 


cal 


Unit 


Number 




Not 


Call 


able 




Not 


Call 


able 




Not 


Call 


able 
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FMTIO 

PURPOSE: Provides internal conversion according to a FORMAT from one memory area to 
another memory area. 



ENTRY 
POINTS: 

EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



PROGRAM TYPE =7 



ROUTINE IS: U 



(FMTIO ENTRY POINTS - see page 4-30) 



(FMTIO EXTERNAL REFERENCES - see page 4-30) 



JSB CODE JSB CODE 

DEF *+l or DEF *+2 

Read or write request DEF ICHRS 
(see Note 1) 



METHOD: Utilizes the internal conversion capability of the Formatter. 



ATTRIBUTES: 



Parameters 

Result 

FORTRAN 

FORTRAN IV 

ALGOL 

Errors 



NOTES: 



COMMENT 









ENTRY POINTS: 


CODE 






ACODE 


None 






None 


None 






None 


Callable 






Callable 


Callable 






Callable 


Not calla 


ble 


(Note 2) 


Callable (Note 2) 


None 






None 



1. The call to CODE must immediately precede a READ or WRITE request where the 
identifier of an ASCII record buffer replaces the logical unit number. Any 
labels must be attached to the CODE call, as the CODE call and the READ/ 
WRITE call are treated as one statement. 

In FORTRAN the calling sequences are: 

CALL CODE (ICHRS) CALL CODE 

READ [v,n)L WRITE (v,n)h 

where v is the unsubscripted identifier of an ASCII record buffer; 
n is the number of a FORMAT Statement; and 
l is an Input/Output List of variables. 
ICHRS is an optional parameter which limits the size of the buffer the 

Formatter will read to satisfy the variable list. Typically ICHRS 
would equal the number of ASCII characters in buffer V. If ICHRS 
is not specified the Formatter will search all of memory, if nec- 
essary, to satisfy the external. 
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On read, the contents of the ASCII record v are converted according to the 
FORMAT n and are stored in the variables listed in l. 

On write, the contents of the variables listed in l are converted to ASCII 
according to FORMAT n and the ASCII characters are stored in v. 

la. Two other interesting routines: ITLOG & ISTAT 

JSB ITLOG ICHRS = ITLOG(IXXXX) 

DEF *+l 

STA ICHRS 
WHERE: 

ICHRS = THE NUMBER OF CHARACTORS READ OR WRITTEN BY THE FORMATTER 

BY ITS LAST INPUT/OUTPUT REQUEST TO THE SYSTEM. " ICHRS " VALUE 

WILL BE TO 134 (120 OF BINARY) REGARDLESS OF THE SPECIFIED 

BUFFER SIZE IN THE READ OR WRITE STATEMENT. 
IXXXX = THE SAME AS " ICHRS " 

JSB ISTAT ISTUS = ISTAT( IXXXX) 

DEF *+l 

STA ISTUS 

WHERE: 

ISTUS = THE STATUS WORD RETURNED FROM THE EXEC IN THE LAST 
INPUT/OUTPUT CALL THE FORMATTER DID. 
IXXXX = SAME AS " ISTUS " 

lb. EXAMPLES 

EXAMPLE: CODE 

CALL EXEC (l,401B,IBUFR,-80) 
CALL ABREG(IA, ICHRS) 
CALL CODE(ICHRS) 
READ(IBUFR,*) A,B,C,D 

EXAMPLE: ITLOG 

5 READ (1,10) (IBUF(I),I=1,36) 
10 FORMAT (36A2) 

IF (ITLOG(ICHRS)) 20,5,20 
20 ISTRC = 1 

CALL NAMR(IPBUF,IBUF, ICHRS, ISTRC) 

NOTE: ICHRS CAN BE AS LARGE AS 134 IF 134 CHARACTERS ARE INPUT. 

EXAMPLE: ISTAT 

READ (8,10) (IBUF(I) ,1=1,80) 
10 FORMAT (40A2) 

IF (IAND(ISTAT(ISTUS),240B)) 99,20,99 
20 CONTINUE 

99 CONTINUE (END OF FILE OR END TAPE DETECTED) 
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1c. 

Note 1: The result of ITLOfi is always given as the number of bytes transferred. 
For unformatted (binary) I/O to type - 1 7B devices (teletype, car- 
tridge tape, paper tape punches), the transmission log includes two 
bytes of record length information. (See Binary Record Format, p 4-30a. 

Note 2: Both the transmission log and the device status are meaningless if the 
device is buffered. 

Binary Record Format 



Device Type 


Format 






- 17B 

(0 < N < 256) 




15 8 


7 


word 1 
word 2 

word n-l 
word n 




record 
length (N) 


WMM 










data 1 










data N-2 










data N-l 








20 - 77 

(0 < N < 32767) 








word 1 
word N 




data 1 










data N 









Integer, logical, or ASCII variables require one data word. Real variables re- 
quire two data words. Extended precision reals require three data words. 
Double precision reals require four data words. 
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2. ALGOL programmers must use the entry point ACODE instead of CODE. ACODE 
ROUTINE does not handle ARRAYS. The following is an example of how to 
handle ARRAYS. 

HPAL,L,"TEST" 

BEGIN 

INTEGER ARRAY B[l:3]; INTEGER I, INPUT:=12345; 

OUTPUT LSTl(INPT); 

FORMAT F1(I6); 

PROCEDURE ACODE; 

CODE; 
PROCEDURE ACODEWRITE(BUFFER, FRMT, LIST); 

INTEGER BUFFER; FORMAT FRMT; OUTPUT LIST; 

BEGIN 

ACODE; 

WRITE(BUFFER, FRMT, LIST) 

END; 
AC0DEWRITE(B[1], Fl, LST1); 

WRITE(1, #(" RESULT :",3A2), FOR I:=l TO 3 DO B[I]) 
END$ 



FMTIO Entry Points 








The entry points are: 








.RIO. 


.BIO. 


NEWIO 


.XAR. 


.110. 


.101. 


OLDIO 


.TAR. 


.XIO. 


. IOR. 


CODE 


LGBUF 


.XAY. 


.IAR. 


ACODE 




.RAY. 


.RAR. 


ITLOG 




.IAY. 


.DTA. 


I STAT 




.DIO. 


.TIO. 


.TAY. 





FMTIO External References 
The external references are: 



EXEC 


.INPN 


RE 10 


.FRMN 


.DTAN 


PNAME 


.LS2F 


FMT.E 


.SBT 
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FRMTR 

PURPOSE: This routine is the re-entrant portion of the Formatter. Its entry 
points are only callable by the routine FMTIO. FRMTR contains the 
various type conversion routines (D, R, K, E, L, etc.) 



PROGRAM TYPE = 6 



ROUTINE IS: R 



ENTRY 
POINTS: 



EXTERNAL 
REFERENCES: 

CALLING 
SEQUENCES: 



.FRMN 


.LS2F,. 


INPN, 


DTAN 


.ZRNT 
.LBT, 


.XPAK, 
SBT 






Only callable 


from 


FMTIO 
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LGBUF 



PURPOSE: 



ENTRY 
POINTS: 



Can be used to specify the address and length of the I/O 
buffer. 



EXTERNAL 
REFERENCES: 



CALLING 
SEQUENCES: 



None 


None 


JSB 


LGBUF 


DEF 


*+3 


DEF 


IBUF 


DEF 


ILNG 


-r 




ILNG 


DEC N 


IBUF 


BSS N 



LGBUF 






Callable 


Callable 


Callable 



ATTRIBUTES: 

Parameters: 

Result: 
Fortran: 

Fortran IV: 

Algol: 



Note 1: For devices type - 17B, ILNG should not exceed 255. For other devices, 
ILNG may be in the range 1 - 32767. (See Binary Record Format, p. 4-31.) 

Note 2: If a line of I/O exceeds the buffer size ILNG, the access is lost. Un- 
formatted output, however is an exception; data cannot be lost (multiple 
records not exceeding ILNG will be output). 

Note 3: If LGBUF is to be called in a segment, the buffer must be dimensioned 
in common in the main program and all the segments. 

Example: 

DIMENSION IBUF(500) 
DIMENSION JOB(IOO) 

CALL LGBUF(IBUF,500) 



WRITE(8,100)(J0B(I),I=1,100) 
100 FORMAT(IOOIIO) 
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APPENDIX A 



RUN TIME ERROR MESSAGES 



APPENDIX A 
RUN TIME ERROR MESSAGES 



During execution of programs referencing Relocatable Library Subroutines, error 
messages may be generated. Error messages are listed together with the subroutine 
involved. The list LU is defaulted to LU6. To change the list LU, refer to the 
routine ER0.E. 

Mathematical Subroutines 

Error messages are printed in the form: 

program name nn xx 

program name is the name of the user program where the error 

was encountered. 

nn is a number in the range 02 through 15 which 

identifies the subroutine involved in the error 
condition. 

xx is the error type, as follows: 

OF = Integer or Floating Point Overflow 

OR = Out of Range 

UN = Floating Point Underflow 

These error messages can occur when system intrinsics are called or during 
an exponentiation operation. Suppose X and Y are real values and I and J 
are integers. Then, the following relocatable subroutines are called for 
these computations : 

X**Y .RTOR (real to real) 
X**I .RTOI (real to integer) 
I**J . ITOI (integer to integer) 
The following is a summary of possible error messages: 

Error Issuing Where 

Message Subroutine Used 

02- UN ALOG ALOG 

ALOGT 
CLOG 
DLOG 
DLOGT 
.LOG 
.LOGJ2 
.LOGT 

03- UN SQRT SQRT ! X < 

DSQRT DSQRT 

. SQRT . SQRT 

A-l 





Error 


Condition 


X 


< 





X 


< 





X 


= 





X 


< 





X 


< 





X 


< 





X 


< 





X 


< 






Error 
Message 

04-UN 



05-OR 

06- UN 
07-OF 



08-UN 
08-OF 
09-OR 

10-OF 



11-UN 



12-UN 



13-UN 



Issuing 
Subroutine 

.RTOR 



SIN 
COS 



.RTOI 

EXP 
• EXP 



.ITOI 
. ITOI 
TAN 

DEXP 



DLOG 



.DTOI 



.DTOD 



Where 
Used 

• RTOR 

SIN 
CSNCS 
CEXP 
COS 

.RTOI 

EXP 

CEXP 

.RTOR 

CSNCS 

.EXP 

.TTOT 
.TTOR 

• RTOT 

• ITOI 

.ITOI 

DTAN 

TAN 

.TAN 

DEXP 



Error 
Condition 

X = 0, Y <_ 
X < 0, Y fi 

X outside 
[-8192*77, +8191.75*77] 

X = 0, Y < 



X * log e >_ 127 

X ± * log 2 e >_ 127 

I X * ALOG(X) | >_ 127 

X„ * log„e > 127 
2 ^2 — 

X-log e >_ 127 
X Y > 2 127 



1 = 0, J <_ 
I J > 2 23 



X > 2 



14 



X „ -39, 127 
e > (1-2 ) 2 



14-UN 
15-UN 



.CTOI 
.ATN2 



.DTOD 
• DTOR 


X > 


d-2" 


■ 39 ) 


.RTOD 








DLOG 


X <_ 







DLOGT 


X < 







.DTOI 


X = 


0, I 


<_ 


.TTOI 








.DTOD 


X = 


0, Y 


1 ° 


.DTOR 


X < 







.RTOD 








.RTOT 








.TTOR 








.TTOT 








.CTOI 


X = 


0, I 


1 ° 


.ATN2 
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Format Errors 

During execution of the object program error messages may be printed on the 
output unit by the input/output system supplied for FORTRAN programs. The 
error message is printed in the form: 



FMT ERR nn program name 



nn 



is the error code. 



program name 



is the name of the user program. 



The following is a summary of the FMT error codes: 



Error 
Code 



Explanation 



Action 



01 



02 



03 



FORMAT ERROR: 

a) w or d field does not contain 
proper digits. 

b) No decimal point after w 
field. 

c) w - d <= 4 for E- 
specif ication. 

a) FORMAT specifications are 
nested more than one level 
deep. 

b) A FORMAT statement contains 
more right parentheses than 
left parentheses. 

a) Illegal character in FORMAT 
statement. 

b) Format repetition factor of 
zero. 

c) FORMAT statement defines 
more character positions 
than possible for device. 



Irrecoverable error; 
program must be 
recompiled. 



Irrecoverable error; 
program must be 
recompiled. 



Irrecoverable error; 
program must be 
recompiled. 



04 



Illegal character in fixed 
field input item or number 
not right-justified in field. 



Verify data. 



05 



A number has an illegal form 
(e.g., two Es, two decimal 
points, two signs, etc.). 



Verify data. 
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RTE DEBUG LIBRARY SUBROUTINE 



DEBUG, a utility subroutine of the RTE-DOS Relocatable Library is appended to the user's main pro- 
gram and to each segment by the loader when the appropriate loader option is set, and allows programs 
to be checked for logical errors during execution. 

After the user's program is loaded with DEBUG appended to it, the user turns his program on with 
either of the following commands: 

RU,name,Iu OH, name, lu 

Where: 

name is the program name. 

iu is the logical unit of the console to be used for interactive commands. 

Programs that expect starting parameters or that call RMPAR may require a special version of the 
module DBGLU, which determines the console lu. 

The primary entry point of the program and of each segment (the location where execution begins) is 
set to DEBUG so that when the program is turned on, or a segment is entered, DEBUG takes control and 
printes a message: 

BEGIN "DEBUG" 
or: 

BEGIN SEGMENT 

You can then enter any legal debug operation. Illegal requests are ignored and a message is printed. 

ENTRY ERROR 

The following commands describe DEBUG operation. 

ABORT 

A Abort DEBUG operation. The program is set dormant. 

BREAKPOINT 

B,n Instruction breakpoint at octal address n. 

When the program reaches the breakpoint, execution is interrupted and the following message is 
printed: 

P = v 1 I = v 2 A = v 3 B = v 4 E = v g = v 6 MA = v ? MC = v g 

The v's are octal values of registers and memory locations as follows: 

P - P-Register (instruction address) 

I - Instruction (contents) 

A - A-Register 

B - B-Register 

E - E-Register 

- Overflow 

MA - Effective operand address of a memory reference instruction 

MC - Contents of effective address of a memory reference instruction 

The breakpoint address n is relative to the program relocation base. P and MA are relative to the 
program relocation base if preceded by 'M+'. (See "M" command). Any legal DEBUG control statement 
may then be entered. The displayed instruction will be executed when the "R" command is entered. 

The instruction may be modified with the "S" or "W" commands prior to entering the "R" command. 
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Three possible cases will prevent the instruction's execution until the breakpoint is cleared: 

1) If the instruction will cause a memory protect violation (for example, JSB EXEC, DST IB, 
JMP 100B, etc.), then the message 'MEM PROTECT' is displayed. 

2) If the instruction is not in the HP 2100 instruction set (for example CAX, MWF, user- 
defined microcode, unimplemented instruction, etc.), then the message '7INSTR?' is displayed. 

3) If the memory address cannot be resolved (more than 24 levels of indirect addressing), then 
the message 'INDIRECT LOOP' is displayed. 

A maximum of fifteen breakpoints may be set at a time in the main program. An additional fifteen 

may be set in the current segment. Note that when one segment is overlayed by another, any memory 

modifications ('S' or 'M' commands), or breakpoints set within it are lost. The copy of DEBUG 

appended to the main should not be used to set breakpoints in the segments. Likewise, the copy of 

DEBUG appended to a segment should not be used to set breakpoints in the main or another segment. 

DUMP MEMORY 

D,A,n-| (,n ? ) ASCII dump of octal main memory address n-, or from n-, through n ? 
D,B,n-| (,n ? ) Binary dump of octal main memory address n-, or from n, through n~ 

The second parameter indicates the format of the print-out: A specifies ASCII, B specifies octal. The 
address n, designates the location of the word or the first of a series of words that is to be dumped. 
If the second address, n„, is greater than n, , a block of memory, n, through n , is printed. If n~ is 
the same as n, , only one location is printed. All addresses are relative to the program relocation 
base. (See "M" command.) 

The Dump output record format consists of the contents up to 8 consecutive words preceded by the 
address of the first word: 

word ft 

oooooo 

cc 

The system BR command can be used to stop the listing. 

PROGRAM RELOCATION BASE 

M,n Sets absolute base of relocatable program unit at octal address n 

The statement defines the program relocation base, n, as the absolute origin in memory of the user's 
relocatable program. This address may be obtained from the listing produced by the Relocating Loader 
during loading. If not specified, a value of zero is assumed. The value is added to all address 
parameters entered by the operator. It is subtracted from all addresses displayed by DEBUG. 

Specification of this value allows subsequent reference in the control statements to addresses as 
shown on the program listing produced by the Assembler or the FORTRAN compiler. If this control 
statement is not used, program address parameters for other control statements must be absolute. 





addr. 


word. 


word„ 


Octal: 


M+aaaaa 


oooooo 


oooooo 


ASCII: 


M+aaaaa 


cc 


cc 



RUN 



R(,n) Execute user program starting at octal address n or execute starting at next 

location in user program (used after a breakpoint or to initiate the program at 
the transfer point in the user program). 
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If the letter R only is entered, execution starts with the next sequential instruction in the user's 
program. To start at another location, the operator enters the address, n. The address n specified 
relative to the program relocation base (see the M command). The breakpoint message can be repeated 
by setting n equal to the location of the breakpoint. 

SET MEMORY 

S,n,d Set octal value d in octal address n 

S.n.d-j.d-, . . . , d Set octal values d, through d in successive memory locations beginning 
at octal address n 

The above statement allows the user to set one or more values into locations defined by the first 
address, n. The value specified for d-, is stored in location n; the value for d ? , in location n + 1; 
and so forth. To specify that an existing value in memory is to remain unchanged, two consecutive 
commas are used in the control statement. Any number of values may be entered via one control state- 
ment provided the length of the statement does not exceed 72 characters. The address n is relative 
to the program relocation base. (See "M" command.) If the address is outside of the program's area 
the message: 

AODR n ILLEGAL 
is displayed and the store is not allowed. 

SET REGISTER 

W,A,d Set A-register to octal value d 
W,B,d Set B-register to octal value d 
W,E,d Set E-register to octal value d 

(0 = off; non-zero = on) 
W,0,d Set Overflow to octal value d 

(0 = off; non-zero = on) 

Since the Debugging routine simulates the register, the results of a Set Register operation are not 
reflected on the computer front panel. 

CLEAR BREAKPOINT 

X,n Clear breakpoint at octal address n. The address is relative to the program relocation 
base. (See "M" command.) 
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INDEX I 



This index lists the names and page reference of 
all the Relocatable Library entry points. 



ABREG 


3-1 


ABS 


2-1 


ACODE 


4-32 


ADRES 


3-9 


AIMAG 


2-2 


A I NT 


2-3 


ALOG 


2-4 


ALOGT 


2-5 


AMAXO 


2-53 


AMAX1 


2-54 


AMINO 


2-53 


AMIN1 


2-54 


AMOD 


2-6 


ARCTA 


2-7 


ATAN 


2-7 


ATAN2 


2-8 


BREAD 


3-2 


BWRIT 


3-2 


CABS 


2-9 


CADD 


5-10 


CCOS 


2-18 


CDIV 


2-11 


CEXP 


2-12 


CLOG 


2-13 


CLRIO 


3-3 


CMPLX 


2-14 


CMPY 


2-15 


CODE 


4-29 


CONJG 


2-16 


COS 


2-17 


CSIN 


2-18 


CSNCS 


2-18 


CSQRT 


2-19 


CSUB 


2-20 



DABS 


2-21 


DATAN 


2-22 


DATN2 


2-23 


DBGLU 


3-4 


DBLE 


2-24 


DBKPT 


3-5 


DCOS 


2-25 


DDINT 


2-26 


DEBUG 


3-6 


DEXP 


2-27 


DIM 


2-28 


DLOG 


2-29 


DLOGT 


2-30 


DMAX1 


2-52 


DMIN1 


2-52 


DMOD 


2-31 


DPOLY 


2-63 


DSIGN 


2-32 


DSIN 


2-33 


DSQRT 


2-34 


DTAN 


2-35 


DTANH 


2-36 


ENTIE 


2-37 


ENTIX 


2-38 


ERO.E 


3-7 


ERRO 


3-8 


EXP 


2-39 


FADSB 


2-40 


FIXDR 


2-148 


FLOAT 


2-41 


FLTDR 


2-149 


FMTIO 


4-29 


FRMTR 


4-33 



GETAD 



3-9 



OVF 



3-18 



I ABS 


2-42 


I AND 


2-43 


IDIM 


2-44 


IDINT 


2-45 


IEOF 


3-15 


I EOT 


3-15 


I ERR 


3-15 


IF IX 


2-46 


IGET 


3-10 


IND.E 


3-11 


INDEX 


3-12 


INT 


2-47 


I OR 


2-48 


I SIGN 


2-49 


I SOT 


3-15 


ISSR 


3-13 


ISSW 


3-14 


I STAT 


4-30 


ITLOG 


4-30 


IWRDS 


3-15 


IXOR 


2-50 


LGBUF 


4-34 


LN 


2-4 


LOCAL 


3-15 


MAGTP 


3-15 


MAXO 


2-53 


MAX1 


2-54 


MINO 


2-53 


MINI 


2-54 


MOD 


2-51 



NAMR 



3-16 



PAUSE 


3-20 


PAU.E 


3-19 


PNAME 


3-21 


PTAPE 


3-22 


REAL 


2-55 


RMPAR 


3-23 


RSFLG 


3-24 


RWSTB 


3-15 


SIGN 


2-56 


SIN 


2-57 


SNGL 


2-58 


SNGM 


2-59 


SQRT 


2-58 


SREAD 


3-25 


TAN 


2-61 


TANH 


2-62 


TRNL 


2-63 


XADD 


2-64 


XDIV 


2-66 


XMPY 


2-67 


XPOLY 


2-68 


XSUB 


2-69 


#COS 


3-26 


#EXP 


3-27 


#LOG 


3-28 


#SIN 


3-29 


$DBP1 


3-6 


$DBP2 


3-5 
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$EXP 


3-30 


SLOG 


3-31 


ILOGT 


3-32 


$MEMR 


3-4 


$SETP 


3-33 


$SQRT 


3-34 


$TAN 


3-36 


%ABS 


3-35 


%AN 


3-37 


%AND 


3-38 


%ANH 


3-39 


XBS 


3-40 


XFIX 


3-41 


XIGN 


3-42 


XIN 


3-43 


XINT 


3-44 


XJFIL 


3-25 


XLOAT 


3-45 


XLOG 


3-46 


XLOGT 


3-47 


XNT 


3-48 


XDR 


3-49 


XOS 


3-50 


XOT 


3-51 


XQRT 


3-52 


XRDSC 


3-25 


XREAD 


3-25 


XSIGN 


3-53 


XSSW 


3-54 


XTAN 


3-55 


XWBUF 


3-57 


XWEOF 


3-56 


XWRIF 


3-57 


XWRIN 


3-56 


XWRIS 


3-56 


XWRIT 


3-57 


XXP 


3-58 


.ABS 


2-70 


.ATAN 


2-71 


.ATN2 


2-72 


.ATA2 


2-72 


.BLE 


2-73 



.CADD 


2-74 


.CDBL 


2-75 


.CDIV 


2-76 


.CFER 


2-77 


. CHEB 


2-78 


.CINT 


2-79 


, CMPY 


2-80 


,CMRS 


2-81 


,CDS 


2-131 


CSUB 


2-82 


CTBL 


2-83 


CTOI 


2-84 


DADS 


2-150 


DCO 


2-151 


DCPX 


2-85 


DDE 


2-152 


DDI 


2-153 


DDS 


2-154 


DFER 


2-86 


DIN 


2-155 


DINT 


2-87 


DIS 


2-156 


DIV 


2-88 


DLD 


2-89 


DMP 


2-157 


DNG 


2-158 


DST 


2-90 


DTOD 


2-91 


DTOI 


2-92 


DTOR 


2-93 


ENTC 


3-59 


ENTP 


3-60 


ENTR 


3-60 


EXP 


2-94 


FAD 


2-40 


FMP 


2-97 


FSB 


2-40 


FDV 


2-95 


FIXD 


2-159 


FLTD 


2-160 


FLUN 


2-96 


FPWR 


2-98 


GOTO 


3-62 



ICPX 


2-99 


IDBL 


2-100 


IENT 


2-101 


INDA 


3-12 


INDR 


3-12 


ITBL 


2-102 


I TO I 


2-103 


LBT 


2-104 


LOG 


2-105 


LOGO 


2-106 


MAC. 


2-107 


MANT 


2-108 


MAP. 


3-63 


MAX1 


2-111 


MINI 


2-111 


MOD 


2-109 


MPY 


2-110 


MXMN 


2-111 


NGL 


2-112 


OPSY 


3-64 


PACK 


2-113 


PAUS 


3-20 


PCAD 


3-65 


PRAM 


3-66 


PWR2 


2-114 


RCNG 


3-67 


RTOD 


2-115 


RTOI 


2-115 


RTOR 


2-117 


RTOT 


2-118 


SBT 


2-1 19 


SIN 


2-131 


SIGN 


2-120 


SNCS 


2-121 


SQRT 


2-122 


SWCH 


3-68 


STOP 


3-20 


TADD 


2-129 


TAPE 


3-69 


TAN 


2-123 


TANH 


2-124 


TCPX 


2-125 


TDIV 


2-129 



.TENT 


2-126 


.TFXD 


2-162 


.TFTD 


2-161 


.TINT 


2-128 


.TMPY 


2-129 


.TMTH 


2-129 


.TPWR 


2-130 


.TSCS 


2-131 


.TSUB 


2-129 


.TTOI 


2-132 


.TTOR 


2-133 


.TTOT 


2-134 


.XADD 


2-65 


.XCOM 


2-135 


.XDIV 


2-136 


.XFER 


2-137 


.XFTD 


2-163 


.XFXD 


- 2-164 


.XMPY 


2-138 


.XPAK 


2-139 


.XPLY 


2-68 


.XSUB 


2-65 


.YINT 


2-14C 


.4ZR0 


2-141 


. .CCM 


2-142 


. .DCM 


2-143 


. .DLC 


2-144 


. .FCM 


2-145 


. .MAP 


3-70 


. .TCM 


2-146 


/ATLG 


3-71 


/COS 


3-72 


/CMRT 


3-73 


/EXP 


3-74 


/EXTH 


3-75 


/LOG 


3-76 


/LOGO 


3-77 


/SIN 


3-78 


/SQRT 


3-79 


/TAN 


3-80 


/TINT 


3-81 
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INDEX II 



This index lists the subroutines in the DOS/RTE Relocatable Library 
by function. The functional categories are: 

Absolute Value 

Complex Number Arithmetic 

Conditional Branch 

DOS/RTE Utilities 

Exponents, Logs, and Roots 

General I/O 

Integer Arithmetic 

Miscellaneous 

Number Conversion 

Parameters, Formats, and Addresses 

Program Error and Termination 

Real Number Arithmetic 

Register Test 

Trigonometry 

Double Integer 



ABSOLUTE VALUE 

Name Function Page 

ABS (real x) 2-1 

CABS (complex x) 2-9 

DABS (extended real x) 2-21 

D I M (real x) — (real y) 2-28 

I ABS (integer I) 2-42 

I D I M (integer I) — (integer J) 2-44 

. ABS (double real x) 2-70 

%ABS (integer I) ; call-by-name 3-35 

XBS (real x) ; call-by-name 3-40 

COMPLEX NUMBER ARITHMETIC 

A I MAG Extract imaginary part of complex x 2-2 

CADD FORTRAN II Interface to .CADD 5-10 

CDIV FORTRAN II Interface to .CDIV 2-76 

CMPLX Complex z = real x + imaginary y 2-14 

CMPY FORTRAN II Interface to .CMPY 2-15 

CONJG Form conjugate of complex x 2-16 

CSUB FORTRAN II Interface to .CSUB 2-2C 

REAL Extract the real part of a complex x 2-55 

. CADD Add complex x to complex y 2-74 

. CDBL Extract the real part of a complex x in extended real form 2-7E 

.CDIV Divide complex x by complex y 2-76 

. CMPY Multiply complex x by complex y 2-8C 

. CSUB Subtract complex y from complex x 2-82 

. . CCM Complement of complex x 2-1 4£ 
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CONDITIONAL BRANCH 

Name Function Page 

. GOTO Transfer control to the location indicated by a FORTRAN computed GOTO statement: GOTO 

(K„ K 2 , . . .K n ) 3-62 

. SWCH Switch execution control to the Ith label in a sequence of N labels (implements ALGOL switch 

statement) 3-68 

DOS/RTE UTILITIES 

DBKPT Process breakpoints for DEBUG 3-5 

DEBUG Provide debug aids for relocatable programs 3-6 

SREAD Read a source record or sector from a specified device 3-25 

XWR I S Write a disc source file (RTE only) 3-58 

%WR I T Write load-and-go file on disc 3-57 

EXPONENTS, LOGS, AND ROOTS 

ALOG Ln (real x) 2-4 

ALOGT Log 10 (real x) 2-5 

CLOG Ln (complex x) 2-13 

CSQRT Complex complex x 2-19 

DEX P Extended real e (extended real x) 2-27 

DLDG Ln (extended real x) 2-29 

DLDGT Log 10 (extended real x) 2-30 

DSQRT Square root of x, where x is extended real value 2-34 

CEXP Complex e x , where x is complex value 2-12 

EXP e x , where x is real value 2-39 

SQRT Square root of x, where x is real value 2-58 

. CTO I x', where x is a complex value 2-84 

. DTOD x y , where x and y are extended real values 2-91 

. DTO I x 1 , where x is extended real and I is an integer 2-92 

. DTOR x y , where x is extended and y is real value; result is extended real 2-93 

. EXP Calculate e x where x is double real 2-94 

. FPWR Calculates x 1 for real x 2-98 

. I TO I l J , where I and J are integers 2-103 

. LOG Calculates log e x for double real x 2-105 

. LOGO Calculates log 10 x for double real x 2-106 

. PWR2 x.2 n , where x is real and n is an integer value 2-114 

. RTOD x y , where x is real value, y is a extended real value; result is extended real 2-115 

. RTO I x ', where x is a real value and I is an integer 2-115 

. RTOR x y , where x and y are real values 2-117 

. RTOT Calculate x Y , where x is real and Y is double real 2-118 

. SQRT Calculate the square root of double real x 2-122 

. TPWR Calculates x', where x is double real and I is unsigned 2-130 

. TT0 1 Calculates X 1 , where X is double real and I is an integer 2-132 

. TT0R Calculates X v , where X is double real and Y is real 2-133 

. TT0T Calculate x Y , where x and Y are double reals 2-134 

#EXP Complex e x , where x is complex value; no error return 3-27 

#L0G Ln (complex x); no error return 3-28 

$EXP Extended real e x , where x is extended real value; no error return 3-30 

$L0G Ln (extended real x); no error return 3-31 
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EXPONENTS, LOGS, AND ROOTS (Continued) 

Name Function Page 

$L0GT Log 10 (extended real x); no error return 3-32 

$SQRT Square root of x, where x is a extended real value; no error return 3-34 

XLOG Ln (real x); call-by-name 3-46 

%L0GT Log 10 (real x); call-by-name 3-47 

XQRT Square root of x, where x is a real value; call-by-name 3-52 

XXP e x , where x is a real value; call-by-name 3-58 

/EXP .EXP with no error return 3-74 

/EXTH Compute 2 N x 2 Z for small double real z 3-75 

/LOG .LOG with error return 3-76 

/LOGO .LOGO with no error return 3-77 

/ SQRT .SORT with no error return 3-79 

GENERAL I/O 

BINRY Read or write on disc X-XX 

CLR 1 Compatibility routine 3-3 

MAGTP Perform utility functions on magnetic tape unit 3-15 

PTAPE Position magnetic tape 3-22 

. TAPE Rewind, back space, or end-of-file operation on magnetic tape unit 3-69 

INTEGER ARITHMETIC 

I S I GN I • sign (z); transfer the sign of a real or integer z to an integer I 2-49 

%S I GN I • sign (z); transfer the sign of a real or integer z to an integer I; call-by-name 3-53 

MISCELLANEOUS 

DPOLY Evaluate the quotient of two polynomials in double precision 2-63 

I AND Calculate the logical product of integers I and J 2-43 

I OR Calculate the logical inclusive or of integers I and J 2-48 

I X OR Calculate integer exclusive OR 2-50 

MXMND Calculate the maximum or minimum of a series of extended real values 2-52 

MXMN I Calculate the maximum or minimum of a series of integer values 2-53 

MXMNR Calculate the maximum or minimum of a series of real values 2-54 

TRNL See DPOLY 2-63 

XPOLY Evaluate the extended real polynomial: C 1 X n - 1 +C 2 X"- 2 + . . . +C n _ 1 X+C n 2-68 

. CFER Move four words from address x to address y. (Complex transfer) 2-77 

. CHEB Evaluate chebyshev series 2-78 

. FLUN Unpack a real x; place exponent in A-register, lower mantissa in B-register 2-96 

. MANT Extract the mantissa of a real x 2-108 

. XFER Move three words from address x to address y (extended real transfer) 2-137 

XAND Calculate the logical product of integers I and J; call-by-name 3-38 

XOR Calculate the logical inclusive "or" of integers I and J; call-by-name 3-49 

XOT Complement integer I; call-by-name 3-51 

. MXMN Finds maximum of a list of double reals 2-111 

. MXMN Finds minimum of a list of double reals 2-111 

. OPSY Determine which disc operating system is in control 3-64 

. 4ZR0 Common double real zero 2-141 

• . TCM Negate a double real 2-146 

$ SETP Set up a list of pointers 3-33 
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NUMBER CONVERSON 

Name Function Page 

ACODE Internal number conversion 4-32 

A I NT Truncate a real x 2-3 

AMOD x modulo y, where x and y are real values 2-6 

CODE Internal number conversion 4-29 

DBL E Convert real x to extended real y 2-24 

DD I NT Truncate an extended real x 2-26 

DMOD x modulo y, where x and y are extended real values 2-31 

ENT I E Calculate greatest integer I that is not greater than real x 2-37 

ENT I E Round a real x to the nearest integer I 2-37 

FLOAT Convert integer I to real x 2-41 

FMTIO Provides internal conversion according to a FORMAT from one memory area to another 

memory area 4-29 

I D I NT Truncate an extended real x to an integer 2-45 

I F I X Convert a real x to an integer I 2-46 

I NT Truncate a real x to an integer J 2-47 

MOD I modulo J, where I and J are integers 2-51 

SNGM Convert extended real x to real y without rounding 2-59 

SNGL Convert an extended real x to a real y 2-58 

. BLE Convert real to double real 2-73 

. CMRS Reduce argument for SIN, COS, TAN, EXP 2-81 

. CTBL Converts a complex real to double real 2-83 

. C I NT Convert a complex x to an integer 2-79 

. DCPX Convert an extended real x to a complex y 2-85 

• DINT Convert an extended real x to an integer 2-87 

. I CPX Convert integer I to complex value 2-99 

. I DBL Convert integer I to extended real value 2-100 

. I TBL Converts integer to double real 2-102 

• I ENT Calculate the greatest integer I that is not greater than real x 2-101 

• NGL Convert double real to real 2-112 

. PACK Convert signed mantissa of a real x into normalized real format 2-113 

. TCPX Convert double real to complex real 2-125 

. T I NT Convert double real to integer 2-128 

XF I X Convert a real x to an integer I; call-by-name 3-41 

% I NT Truncate a real x; call-by-name 3-44 

XLOAT Convert integer I to a real x; call-by-name 3-45 

XNT Truncate a real x to an integer J; call-by-name 3-48 

/CMRT Range reduction for .SIN, .COS, TAN, .EXP, and TAN 3-73 

/TINT Conversion of double precision to integer 3-81 

PARAMETERS, FORMATS, AND ADDRESSES 

GETAD Determine the true address of a parameter passed to a subroutine and store address 3-9 

I NDEX Determine address or value of an ALGOL array 3-9 

I GET Read the contents of a memory address 3-12 

I STAT The Status word returned from the EXEC in the last I/O call the FORMATTER did 4-30 

I TL0G Number of characters read or written by last formatter I/O request 4-30 

LGBUF Can be used to specify address and length of I/O buffer 4-34 

N AMR Read input buffer, produce 1 0-word parameter buffer 3-16 
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PARAMETERS, FORMATS, AND ADDRESSES (Continued) 

Name Function Page 

RMPAR Move five words into a designated array from address pointed to by B-register 3-23 

RSFLG Set the save-resource flag for RTE-BASIC 3-24 

. DFER Move three words from address y to x (extended real transfer) 2-86 

. DIV DOS-Ill only: replace subroutine call with hardware instruction to divide 2-word integer I by 

1 -word integer J 2-88 

• DLD DOS-Ill only: replace subroutine call with hardware instruction to load memory locations x + 1 into 

A- and B-registers, respectively 2-89 

. DST DOS-Ill only: replace subroutine call with hardware instruction to store A- and B-register 

contents into address x and x +1 , respectively 2-90 

. ENTC Transfers true addresses of parameters from a calling sequence into a subroutine; adjusts 

return addresses to the true return point 3-59 

. ENTR Transfer the true address of parameters from a calling sequence into a subroutine; adjust 

return addresses to the true return point 3-60 

. LBT Replaces 21 MX microcoded instruction LBT 2-104 

. MAC . DOS-Ill only: replace subroutine call with hardware instruction to initiate firmware 2-107 

. MAP . Return actual address of a particular element of a two-dimensional FORTRAN array 3-63 

. MPY DOS-Ill only: replace subroutine call with hardware instruction to multiple integer I by integer J 2-110 

. RCNG Converts calls using .ENTR to .ENTC conventions 3-67 

. PCAD Return the true address of a parameter passed to a subroutine 3-65 

. PRAM Process parameter values and/or addresses passed to Assembly language subroutines by 

ALGOL programs 3-66 

. SBT Replaces 21MX microcoded instruction SBT 2-119 

. . MAP Compute the address of a specified element of a 2 or 3 dimensional array 3-70 

PROGRAM TERMINATION AND ERROR 

ERRO Print a 4 character error code on the list device 3-8 

I ND . E Select output LU for error messages 3-11 

I STAT Status word returned from EXEC in last I/O call done by formatter 4-30 

PAUSE Halt program execution and print message 3-20 

PAU . E Select output LU for PAUSE messages 3-19 

REAL NUMBER ARITHMETIC 

DS I GN x • sign (y); transfer the sign of a extended real y to a extended real x 2-32 

ENTIX Calculate greatest integer that is not greater than a extended real x; result that is 

extended real 2-38 

FADSB x+y, where x and y are real 2-40 

F ADSB x - y, where x and y are real 2-40 

S I GN x • sign (z); transfer the sign of a real or integer z to a real x 2-56 

X ADD FORTRAN II Interface to .XADD 2-64 

X ADSB Handles floating point addition and subtraction in extended precision 2-65 

XDIV FORTRAN II Interface to .XDIV 2-66 

XMPY FORTRAN II Interface to .XMPY 2-67 

X SUB FORTRAN II Interface to XADSB 2-69 

. FDV Divide real x by real y 2-95 

. FMP Multiply real x by real y 2-97 

. MOD Calculates double real remainder of x/y 2-109 

.SIGN Transfer the sign of a double real y to a double real x 2-120 

. TADD Double real add 2-129 
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REAL NUMBER ARITHMETIC (Continued) 

Name Function Page 

. T I NT Convert double real to integer 2-128 

. TSUB Double real subtract 2-129 

. TMPY Double real multiply 2-129 

. TD I V Double real divide 2-129 

. Y I NT Truncate fractional part of double real 2-1 40 

. X COM Complement an extended real unpacked mantissa in place 2-135 

. XD I V Divide extended real x by extended real y 2-136 

. XMPY Multiply extended real x by extended real y 2-138 

. XPAK Normalize, round, and pack with the exponent an extended real mantissa 2-139 

. . DCM Complement an extended real x 2-143 

. . DLC Load and complement a real x 2-144 

. . F CM Complement a real x 2-1 45 

% I GN x • sign (z); transfer the sign of a real or integer z to a real 3-42 

/ATLG Compute (1 -x)/(1 +x) in double precision 3-71 

REGISTER TEST 

I SSR Set S-register to value N 3-13 

I SSW Set sign bit of A-register according to bit n of Switch Register 3-14 

OVF Set sign bit of A-register according to overflow bit 3-18 

XSSW Set sign bit of A-register according to bit n of Switch Register; call-by-name 3-54 

TRIGONOMETRY 

ATAN Arctangent (real x) 2-7 

ATAN2 Arctangent (real x/real y) 2-8 

COS COS (real x) 2-17 

CSNCS Complex sin (complex x); Complex cos (Complex x) 2-18 

DATAN Arctangent (extended real x) 2-22 

DATN2 Arctangent (extended real x/double real y) 2-23 

DCOS Cos (extended real x) 2-25 

DS I N Sin (extended real x) 2-33 

DTAN Calculate tangent of extended real x 2-35 

DTANH Calculate hyperbolic tangent of real x 2-36 

SIN Sin (real x) 2-57 

TAN Tan (real x) 2-61 

TANH Tanh (real x); hyperbolic tangent 2-62 

. ATAN Calculate the arctangent of a double real 2-71 

• ATN2 Calculates arctangent of double real quotient x/y 2-72 

. TAN Calculates tangent of double real x (radians) 2-123 

. TANH Calculates hyperbolic tangent of double real x 2-124 

. TSCS Calculates cosine of double precision Z 2-131 

. TSCS Calculates sine of double precision Z 2-131 

#C0S Complex cos (complex x); no error return 3-26 

*S I N Complex sin (complex x); no error return 3-27 

$TAN DTAN with no error return 3-36 
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TRIGONOMETRY (Continued) 

Name Function Page 

XAN Tan (real x); call-by-name 3-37 

XANH Tanh (real x); call-by-name 3-39 

X I N Sin (real x); call-by-name 3-43 

XOS Cos (real x); call-by-name 3-50 

%TAN Arctangent (real x); call-by-name 3-55 

/COS .COS with no error return 3-72 

/SIN .SIN with no error return 3-78 

/TAN .TAN with no error return 3-80 

DOUBLE INTEGER 

F I XDR Convert real to double-length record number 2-148 

FLTDR Convert double-length record number to real 2-149 

. DADS Double integer add and subtract 2-1 50 

. DCO Compare two double integers 2-151 

. DDE Decrement double integer in A & B registers 2-152 

. DDI Double integer divide; Z=X/Y 2-153 

• DDS Double integer decrement and skip if zero 2-1 54 

• DIN Increment double integer in A & B registers 2-155 

. DI S Double integer increment and skip if zero 2-156 

. DMP Double integer multiply; Z=X*Y 2-157 

. DNG Negate double integer x; Z = -x 2-1 58 

. F I X D Convert real to double integer 2-1 59 

. FLTD Convert double integer to real 2-160 

. TFTD Convert double integer to double real 2-1 61 

. XFTD Convert double integer to extended real 2-163 

. XFXD Convert entended real to double integer 2-164 

. TFXD Convert double real to double integer 2-162 
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Cable: HOSPITALAR-Quito 

U 

EGYPT 

International Engineering 

24 Hussein Hegazi Street 

Kasr-el-Aini 

CAIRO 

Tel: 23829, 21641 

Telex: IE A UN 93830 

CH,CS,EM 

Intormatic For Systems 

22 Talaat Harb Street 

CAIRO 

Tel: 759006 

Telex: 93938 FRANK UN 

CH.CS.P 

Egyptian International Office 

for Foreign Trade 

P.O.Box 2558 

CAIRO 

Tel: 650021 

Telex: 93337 EGP0R 

P 

EL SALVADOR 

IPESA de El Salvador S.A. 

29 Avenida Norte 1216 

SAN SALVADOR 

Tel: 26-6858, 26-6868 

Telex: 20539 EPISA 

A,CH,CU,CS,E,P 



s 



SALES & SUPPORT OFFICES 

Arranged alphabetically by country 



FINLAND 

Hewlett-Packard Oy 
Revontulentie 7 
SF-02100 ESPOO 10 
Tel: 00358-0-4550211 
Telex: 9100 
A,CH,CM,CS,E,MS,P 
Hewlett-Packard Oy 
Aatoksenkatv 10-C 
SF-40720-72 JYVASKYLA 
Tel: (941) 216318 
CH 

Hewlett-Packard Oy 
Kalnvuntle 1-C 
SF-90140-14 OULU 
Tel: (981) 338785 
CH 

FRANCE 

Hewlett-Packard France 

Z.I. Mercure B 

Rue Berthelot 

F-13763 Les MiBes Cedex 

AIX-EN-PROVENCE 

Tel: 16 (42) 5941-02 

Telex: 410770F 

A,CH,E,MS,P- 

Hewlett-Packard France 

64, rue Marcnand Salant 

F-61000ALENCON 

Tel: 16 (33) 29 04 42 

Hewlett-Packard France 

Etolte Postale 503 

F-25026 BESANC0N 

28 rue de la Republique 

F-25000 BESANC0N 

Tel: 16 (81) 83-16-22 

CH,M 

Hewtett-Packard France 

13, Place Napoleon IH 

F-29000 BREST 

Tel: 16 (98) 03-38-35 

Hewlett-Packard France 

Chemin des Mouilles 

Boite Postale 162 

F-69130 ECULLY Cedex 

Tel: 16 (78) 833-81-25 

Telex: 310617F 

A,CH,CS,E,MP 

Hewlett-Packard France 

Tour Lorraine 

Boulevard de France 

F-91035 EVRY Cedex 

Tel: 16 6 077-96-60 

Telex: 6923 15F 

E 

Hewlett-Packard France 

5, avenue Raymond Chanas 

F-38320 EYBENS 

Tel: 16 (76) 25-81-41 

Telex: 980124 HP GRENOB EYBE 

CH 

Hewlett-Packard France 

Centre d'Alfaire Paris-Nord 

BStiment Ampere 5 etage 

Rue de la Commune de Paris 

Boite Postale 300 

F-93153LE BLANC MESNIL 

Tel: 16 (1) 865-44-52 

Telex: 21 1032F 

CH,CS,E,MS 

Hewlett-Packard France 

Pare d'Activites Cadera 

Quarter Jean Mermoz 

Avenue du President JF Kennedy 

F-33700 MERIGNAC 

Tel: 16 (56) 34-00-84 

Telex: 550105F 

CH.E.MS 



Hewlett-Packard France 
Immueble "Les 3 B" 
Nouveau Chemin de la Garde 
ZAC de Bois Briand 
F-44085 NANTES Cedex 
Tel: 16 (40) 50-32-22 
CH" 

Hewlett-Packard France 
125, rue du Faubourg Bannler 
F-45000 ORLEANS 
Tel: 16 (38) 68 01 63 
Hewlett-Packard France 
Zone Industries de Courtaboeul 
Avenue des Tropiques 
F-91947 Les Ulis Cedex 0RSAY 
Tel: (6) 907-78-25 
Telex: 600048F 
A,CH,CM,CS,E,MP,P 

Hewlett-Packard France 

Paris Porte-Maillot 

15, Avenue de L'Amiral Bruix 

F-75782 PARIS CEDEX 16 

Tel: 16 (1) 502-12-20 

Telex: 613663F 

CH.MS.P 

Hewlett-Packard France 

124, Boulevard Tourasse 

F-64000 PAU 

Tel: 16 (59) 80 38 02 

Hewlett-Packard France 

2 Allee de la Bourgonnette 

F-35100 RENNES 

Tel: 16 (99) 51-42-44 

Telex: 740912F 

CH,CM,E,MS,P* 

Hewlett-Packard France 

98 Avenue de Bretagne 

F-76100 ROUEN 

Tel: 16(35)63-57-66 

CH",CS 

Hewlett-Packard France 

Boite Postale 56 

F-67033 STRASBOURG Cedex 

4 Rue Thomas Mann 

F-67200 STRASBOURGCedex 

Tel: 16 (88) 28-56-46 

Telex: 890141F 

CH,E,MS,P* 

Hewlett-Packard France 

Le Peripole 

3, Chemin du Pigeonnier de la 

Cepiere 

F-31083 TOULOUSE Cedex 

Tel: 16(61)40-11-12 

Telex: 531639F 

A,CH,CS,E,P* 

Hewlett-Packard France 

9, rue Baudin 

F-26000 VALENCE 

Tel: 16 (75) 42 76 16 

Hewlett-Packard France 

Garolor 

ZAC de Bois Briand 

F-57640 VIGY 

Tel: 16 (8) 771 20 22 

CH 

Hewlett-Packard France 

Immeuble Pericentre 

F-59658 VILLENEUVE D'ASCQ Cedex 

Tel: 16 (20) 91-41-25 

Telex: 160124F 

CH,E,MS,P* 

GERMAN FEDERAL 
REPUBLIC 

Hewlett-Packard GmbH 
Geschaftsstelle 
Keithstrasse 2-4 
D-1000 BERLIN 30 
Tel: (030) 24-90-86 
Telex: 018 3405 hpbln d 
A,CH,E,M,P 



Hewlett-Packard GmbH 
Geschaftsstelle 
Herrenberger Strasse 110 
D-7030 BOBLINGEN 
Tel: (7031) 667-750 
Telex: bbn or 
A,CH,CM,CS,E,MP,P 
Hewlett-Packard GmbH 
Geschaftsstelle 
Emanuel-Leutze-Strasse 1 
D-4000 DUSSELD0RF 
Tel: (0211) 5971-1 
Telex: 085/86 533 hpdd d 
A,CH,CS,E,MS,P 
Hewlett-Packard GmbH 
Verthebszentrale Frankfurt 
Berner Strasse 1 17 
Postfach 560 140 
D-6000 FRANKFURT 56 
Tel: (061 1)50-04-1 
Telex: 04 13249 hpffm d 
A,CH,CM,CS,E,MP,P 
Hewlett-Packard GmbH 
Geschaftsstelle 
Kapstadtring 5 
D-2000 HAMBURG 60 
Tel: (040) 63804-1 
Telex: 021 63 032 hphh d 
A,CH,CS,E,MS,P 
Hewlett-Packard GmbH 
Geschaftsstelle 
Heidering 37-39 
D-3000 HANNOVER 91 
Tel: (051 1)5706-0 
Telex: 092 3259 
A,CH,CM,E,MS,P 
Hewlett-Packard GmbH 
Geschaftsstelle 
Rosslauer Weg 2-4 
D-6800 MANNHEIM 
Tel: (0621) 70050 
Telex: 0462105 
A.C.E 

Hewlett-Packard GmbH 
Geschaftsstelle 
Messerschmittstrasse 7 
D-7910NEUULM 
Tel: 0731-70241 
Telex: 0712816 HP ULM-D 
A,C,E* 

Hewlett-Packard GmbH 
Geschaftsstelle 
Neumeyerstrasse 90 
D-8500 NURNBERG 
Tel: (091 1) 52 20 83-87 
Telex: 0623 860 
CH,CM,E,MS,P 
Hewlett-Packard GmbH 
Geschaftsstelle 
Eschenstrasse 5 
D-8028 TAUFKIRCHEN 
Tel: (089) 6117-1 
Telex: 0524985 
A,CH,CM,E,MS,P 

GREAT BRITAIN 
See United Kingdom 

GREECE 

Kostas Karaynnis S.A. 

8 Omirou Street 

ATHENS 133 

Tel: 32 30 303, 32 37 371 

Telex: 215962 RKARGR 

A,CH,CM,CS,£,M,P 

PLAISIO S.A. 

G. Gerardos 

24 Slournara Street 

ATHENS 

Tel: 36-11-160 

Telex: 221871 

P 



GUATEMALA 

IPESA 

Avenida Reform 3-48, Zona 9 

GUATEMALA OTT 

Tel: 316627, 314786 

Telex: 4192 TELTROGU 

A,CH,CM,CS,E,M,P 

HONG KONG 

Hewlett-Packard Hong Kong, Ltd. 

G.P.0. Box 795 

5th Floor, Sun Hung Kai Centre 

30 Harbour Road 

HONG KONG 

Tel: 5-8323211 

Telex: 66678 HEWPA HX 

Cable: HEWPACK HONG KONG 

E,CH,CS,P 

CETUd. 

1402 Tung Way Mansion 

199-203 Hemessy Rd. 

Wanchia, HONGKONG 

Tel: 5-729376 

Telex: 85148 CETHX 

CM 

Schmidt & Co. (Hong Kong) Ltd. 

Wing On Centre, 28th Floor 

Connaught Road, C. 

HONGKONG 

Tel: 5-455644 

Telex: 74766 SCHMX HX 

A,M 

ICELAND 

Elding Trading Company Inc. 

HamarnvoU- Tryggvagotu 

P.O. Box 895 

IS-REYKJAVIK 

Tel: 1-58-20, 1-63-03 

M 

INDIA 

Computer products are sold through 

Blue Star Ltd. All computer repairs 

and maintenance service is done 

through Computer Maintenance 

Corp. 

Blue Star Ltd. 

Sabri Complex II Floor 

24 Residency Rd. 

BANGALORE 560 025 

Tel: 55660 

Telex: 0845-430 

Cable: BLUESTAR 

a,ch;cm,cs;e 

Blue Star Ltd. 

Band Box House 

Prabhadevi 

BOMBAY 400 025 

Tel: 422-3101 

Telex: 011-3751 

Cable: BLUESTAR 

AM 

Blue Star Ltd. 

Sahas 

4 14/2 W Savarkar Marg 

Prabhadevi 

BOMBAY 400 025 

Tel: 422-6155 

Telex: 011-4093 

Cable: FROSTBLUE 

a,ch;cm,cs',e,m 

Blue Star Ltd. 

Kalyan, 19 Vishwas Colony 

Alkapuri, BORODA, 390 005 

Tel: 65235 

Cable: BLUE STAR 

A 

Blue Star Ltd. 

7 Hare Street 

CALCUTTA 700 001 

Tel: 12-01-31 

Telex: 021-7655 

Cable: BLUESTAR 

AM 



Blue Star Ltd. 

133 Kodambakkam High Road 

MADRAS 600 034 

Tel: 82057 

Telex: 041-379 

Cable: BLUESTAR 

AM 

Blue Star Ltd. 

Bhandari House, 7th/8th Floors 

91 Nehru Place 

NEW DELH1 10 024 

Tel: 682547 

Telex: 031-2463 

Cable: BLUESTAR 

a,ch;cm,cs;e,m 

Blue Star Ltd. 

15/16:0 Wellesley Rd. 

RUNE411011 

Tel: 22775 

Cable: BLUE STAR 

A 

Blue Star Ltd. 

2-2-47/1108 BolarumRd. 

SECUNDERABAD 500 003 

Tel: 72057 

Telex: 0155-459 

Cable: BLUEFROST 

A,E 

Blue Star Ltd. 

T.C. 7/603 Poornima 

Marulhankuzhi 

TRIVANDRUM 695 013 

Tel: 65799 

Telex: 0884-259 

Cable: BLUESTAR 

E 

Computer Maintenance Corporation 

Ltd. 

1 15, Samjini Devi Road 

SECUNDERABAD 500 003 

Tel: 310-184, 345-774 

Telex: 031-2960 

CH" 

INDONESIA 

BERCA Indonesia P. T. 

P.O.Box 496/JKT. 

Jl. Abdul Muis 62 

JAKARTA 

Tel: 373009 

Telex: 46748 BERSAL IA 

Cable: BERSAL JAKARTA 

P 

BERCA Indonesia P. T. 

P.OSox 2497/Jkt Antara BkSg., 

17th Floor 

Jl. Medan Merdeka Selatan 17 

JAKARTA-PUSAT 

Tel: 21-344-181 

Telex: BERSAL IA 

A.CS.EM 

BERCA Indonesia P. T. 

P.O. Box 174/SBY. 

JI.KuteiNo. 11 

SURABAYA 

Tel: 68172 

Telex: 31146 BERSAL SB 

Cable: BERSALSURABAYA 

a ;e,m,p 

IRAQ 

Hewlett-Packard Trading S.A. 

Service Operation 

Al Mansoor City 9B/3/7 

BAGHDAD 

Tel: 551-49-73 

Telex: 212-455 HEPAIRAQ IK 

CH.CS 



SALES & SUPPORT OFFICES 

Arranged alphabetically by country 






IRELAND 

Hewlett-Packard Ireland Ltd. 

82/83 Lower Leeson Street 

DUBLIN 2 

Tel: (1)60 88 00 

Telex: 30439 

A,CH,CM,CS,E,M,P 

Cardiac Services Ltd. 

Kilmore Road 

Mane 

DUBLIN 5 

Tel: (01) 351820 

Telex: 30439 

M 

ISRAEL 

Eldan Electronic Instrument Ltd. 

P.O.BOX 1270 

JERUSALEM 91000 

16, Otmliav St. 

JERUSALEM 94467 

Tel: 533 221, 553 242 

Telex: 25231 AB/PAKRD I 

A 

Electronics Engineering Division 

Motorola Israel Ltd. 

16 Kremenetski Street 

P.O. Box 25016 

TEL-AVIV 67899 

Tel: 3-338973 

Telex: 33569 UolH IL 

Cable: BASTEL Tel-Aviv 

CH,CM,CS,E,M,P 

ITALY 

Hewlett-Packard Italians S.p.A 

Traversa 99C 

Via GMIo Petroni, 19 

1-70124 BARI 

Tel: (080) 41-07-44 

M 

Hewlett-Packard Italiana S.p.A. 

via Martin Luther King, 38/111 

1-40132 BOLOGNA 

Tel: (051) 402394 

Telex: 511630 

CH.E.MS 

Hewlett-Packard Italiana S.p.A. 

Via Principe Nicola 43G/C 

1-95126 CATANIA 

Tel: (095) 37-10-87 

Telex: 970291 

C,P 

Hewlett-Packard Italiana S.p.A. 

Via G. Di Vitlorio 9 

I-20063 CERNUSC0 SUL NAVIGUO 

Tel: (2) 903691 

Telex: 334632 

A,CH,CM,CS,E,MP,P 

Hewlett-Packard Italiana S.p.A. 

Via Nuova San Rocco a 

Capodimonte, 62/A 

1-80131 NAPLES 

Tel: (081) 7413544 

Telex: 710698 

A,CH,E 

Hewlett-Packard Italiana S.p.A. 

Viale G. Modugno 33 

1-16156 GEN0VA PEGU 

Tel: (010) 68-37-07 

Telex: 215238 

E,C 

Hewlett-Packard Italiana S.p.A. 

Via Turazza 14 

1-35100 PADOVA 

Tel: (049) 664888 

Telex: 430315 

A,CH,E,MS 

Hewlett-Packard Italiana S.p.A. 

Viale C. Pavese 340 

1-00144 ROMA 

Tel: (06) 54831 

Telex: 610514 

A,CH,CM,CS,E,MS,P # 



Hewlett-Packard Italiana S.p.A. 
Corso Svizzera, 184 
1-10149 TORINO 
Tel: (011) 74 4044 
Telex: 221079 
CH,E 

JAPAN 

Yokogawa-Hewlett-Packard Ltd. 

152-1, Onna 

000 ATSUGI, Kanagawa, 243 

Tel: (0462) 28-0451 

CM,C*,E 

Yokogawa-Hewlett-Packard Ltd. 

Towa Building 

2-3, Kaigan-dori, 2 Chome Chuo-ku 

KOBE, 650 

Tel: (078)^92-4791 

C,E 

Yokogawa-Hewlett-Packard Ltd. 

Kumagaya Asahi 82 Bldg 

3-4 Tsukuba 

KUMAGAYA, Saitama 360 

Tel: (0485) 24-6563 

CH.CM.E 

Yokogawa-Hewlett-Packard Ltd. 

Asahi Shinbun Daiichi Seimei Bldg. 

4-7, Hanabata-cho 

KUMAM0T0.860 

Tel: (0963) 54-7311 

CH,E 

Yokogawa-Hewlett-Packard Ltd. 

Shin-Kyoto Center Bldg. 

614, Higashi-Shtokoji-cho 

Karasuma-Nishiiru 

Shiokoji-dori, Shimogyo-ku 

KYOTO, 600 

Tel: 075-343-0921 

CH.E 

Yokogawa-Hewlett-Packard Ltd. 

Mito Mitsui Bldg 

4-73, Sannomaru, 1 Chome 

MITO, Ibaragi 310 

Tel: (0292) 25-7470 

CH.CM.E 

Yokogawa-Hewlett-Packard Ltd. 

Sumitomo Seimei 14-9 Bldg. 

Meieki-Minami, 2 Chome 

Nakamura-ku 

NAGOYA, 450 

Tel: (052) 571-5171 

CH,CM,CS,E,MS 

Yokogawa-Hewlett-Packard Ltd. 

Chuo Bldg., 

4-20 Nishinakajima, 5 Chome 

Yodogawa-ku 

OSAKA, 532 

Tel: (06) 304-6021 

Telex: YHPOSA 523-3624 

A,CH,CM,CS,E,MP,P* 

Yokogawa-Hewlett-Packard Ltd. 

27-15, Yabe, 1 Chome 

SAGAMIHARA Kanagawa, 229 

Tel: 0427 59-1311 

Yokogawa-Hewlett-Packard Ltd. 

Daiichi Seimei Bldg. 

7-1, Nishi Shinjuku, 2 Chome 

Shinjuku-ku.TOKYO 160 

Tel: 03-348-4611-5 

CH,E 

Yokogawa-Hewlett-Packard Ltd. 

29-21 Takaido-Higashi, 3 Chome 

Suginami-ku TOKYO 168 

Tel: (03) 331-6111 

Telex: 232-2024 YHPTOK 

A,CH,CM,CS,E,MP,P* 

Yokogawa-Hewlett-Packard Ltd. 

Daiichi Asano Building 

2-8, Odori, 5 Chome 

UTSUNOMIYA, Tochigi 320 

Tel: (0286) 25-7155 

CH.CS.E 



Yokogawa-Hewlett-Packard Ltd. 

Yasuda Seimei Nishiguchi Bldg. 

30-4 Tsuruya-cho, 3 Chome 

Y0K0HAMA221 

Tel: (045) 312-1252 

CH.CM.E 

JORDAN 

Mouasher Cousins Company 

P.O. Box 1387 

AMMAN 

Tel: 24907, 39907 

Telex: 21456 SABCO JO 

CH.EM.P 

KENYA 

ACCOM Ltd., Inc., Kenya 

P.O.Box 30070 

NAIROBI 

Tel: 331955 

Telex: 22639 

EM 

KOREA 

Samsung Electronics Computer 

Division 

76-561 Yeoksam-Dong 

Kwangnam-Ku 

C.P.O. Box 2775 

SEOUL 

Tel: 555-7555, 555-5447 

Telex: K27364 SAMSAN 

A,CH,CU,CS,EMP 

KUWAIT 

Al-Khaldiya Trading S Contracting 

P.O. Box 830 Safat 

KUWAIT 

Tel: 42-4910, 41-1726 

Telex: 22481 Areeg kt 

CH.E.M 

Photo & Cine Equipment 

P.O. Box 270 Safat 

KUWAIT 

Tel: 42-2846, 42-3801 

Telex: 22247 Matin kt 

P 

LEBANON 

G.M. Dolmadjian 

Achratieh 

P.O. Box 165. 167 

BEIRUT 

Tel: 290293 

MP" 

LUXEMBOURG 

Hewlett-Packard Belgium S.A./N.V. 

Blvd de la Woluwe, 100 

Wokiwedal 

B- 1200 BRUSSELS 

Tel: (02) 762-32-00 

Telex: 23-494 paloben bru 

A,CH,CM,CS,E,MP,P 

MALAYSIA 

Hewlett-Packard Sales (Malaysia) 

Sdn. Bhd. 

1st Floor, Bangunan British 

American 

Jalan Semantan, Damansara Heights 

KUALA LUMPUR 23-03 

Tel: 943022 

Telex: MA31011 

A,CH,E,M,P* 

Protel Engineering 

P.O.Box 1917 

Lot 6624, Section 64 

23/4 Pending Road 

Kuching, Sarawak 

Tel: 36299 

Telex: MA 70904 PROTEL 

Cable: PROTELENG 

A.EM 



MALTA 

Philip Toledo Ltd. 

Notabile Rd. 

MRIEHEL 

Tel: 447 47, 455 66 

Telex: Media MW 649 

P 

MEXICO 

Hewlett-Packard Mexicana, S.A. 

de C.V. 

Av. Periferico SurNo. 6501 

Tepepan, Xochimilco 

MEXICO D.F. 16020 

Tel: 676-4600 

Telex: 17-74-507 HEWPACK MEX 

A,CH,CS,E,MS,P 

Hewlett-Packard Mexicana, S.A. 

de C.V. 

Ave. Colonia del Valle #409 

Col. del Valle 

Municipio de Garza Garcia 

MONTERREY, N.L. 

Tel: 78 42 41 

Telex: 038 410 

CH 

ECISA 

JosS Vasconcelos No. 218 

Col. Condesa Deleg. Cuauhtemoc 

MEXICO D.F. 06140 

Tel: 553-1206 

Telex: 17-72755 ECE ME 

M 

MOROCCO 

Dotbeau 

81 rue Karatchi 

CASABLANCA 

Tel: 3041-82, 3068-38 

Telex: 23051, 22822 

E 

Gerep 

2 rue d'Agadir 

Boile Postale 156 

CASABLANCA 

Tel: 272093, 272095 

Telex: 23 739 

P 

NETHERLANDS 

Hewlett-Packard Nederland B.V. 

Van Heuven Goedhartlaan 121 

NL 1181KKAMSTELVEEN 

P.O. Box 667 

NL1180ARAMSTELVEEN 

Tel: (020) 47-20-21 

Telex: 13 216 HEPA NL 

A,CH,CM,CS,E,MP,P 

Hewlett-Packard Nederland B.V. 

Bongerd 2 

NL 2906VK CAPELLE, A/D USSEL 

P.O. Box 41 

NL 2900AA CAPELLE, A/D USSEL 

Tel: (10) 51-64-44 

Telex: 21261 HEPAC NL 

A,CH,CS,E 

NEW ZEALAND 

Hewlett-Packard (N.Z.) Ltd. 

169 Manukau Road 

P.O. Box 26-189 

Epsom, AUCKLAND 

Tel: 687-159 

Cable: HEWPACK Auckland 

CH,CM,E,P* 

Hewlett-Packard (N.Z.) Ltd. 
4-12 Cruickshank Street 
Kilbirnie, WELLINGTON 3 
P.O. Box 9443 

Courtenay Place, WELLINGTON 3 

Tel: 877-199 

Cable: HEWPACK Wellington 

CH,CM,E,P 



Northrop Instruments & Systems 

Ltd. 

369 Khyber Pass Road 

P.O. Box 8602 

AUCKLAND 

Tel: 794-091 

Telex: 60605 

A,M 

Northrop Instruments & Systems 

Ltd. 

.UOMandeviUeSt. 

P.O. Box 8388 

CHRISTCHURCH 

Tel: 486-928 

Telex: 4203 

A,M 

Northrop Instruments & Systems 

Ltd. 

Slur dee House 

85-87 Ghuznee Street 

P.O. Box 2406 

WELLINGTON 

Tel: 850-091 

Telex: NZ 3380 

AM 

NORTHERN IRELAND 
See United Kingdom 

NORWAY 

Hewlett-Packard Norge A/S 

Folke Bernadottes vei 50 

P.O. Box 3558 

N-5033 FYLLINGSDALEN (Bergen) 

Tel: (05) 16-55-40 

Telex: 16621 hpnas n 

CH,CS,E,MS 

Hewlett-Packard Norge A/S 

Osterndalen 18 

P.O. Box 34 

N-1345 0STERAS 

Tel: (02) 17-11-80 

Telex: 16621 hpnas n 

A,CH,CM,CS,E,M,P 

OMAN 

Khimjil Ramdas 

P.O. Box 19 

MUSCAT 

Tel: 722225, 745601 

Telex: 3289 BROKER MB MUSCA T 

P 

Suhail S Saud Bahwan 

P.O.Box 169 

MUSCAT 

Tel: 734 201-3 

Telex: 3274 BAHWAN MB 

PAKISTAN 

Mushko S Company Ltd. 

1-B, Street 43 

Sector F-8/1 

ISLAMABAD 

Tel: 26875 

Cable: FEMUS Rawalpindi 

A,EM 

Mushko & Company Ltd. 

Oosman Chambers 

Abdullah Haroon Road 

KARACHI 0302 

Tel: 524131, 524132 

Telex: 2894 MUSKO PK 

Cable: COOPERA TOR Karachi 

A,E,M,P' 

PANAMA 

Eleclrdnico Balboa, S.A. 

Calle Samuel Lewis, Ed. Alfa 

Apartado 4929 

PANAMA S 

Tel: 64-2700 

Telex: 3483 ELECTRON PG 

A,CM,E,M,P 






SALES & SUPPORT OFFICES 

Arranged alphabetically by country 



PERU 

Cfa Electro Itedica S.A. 

Los Flamencos 145, San Isidro 

Casilla 1030 

LIMA 1 

Tel: 41-4325, 41-3703 

Telex: Pub. Booth 25306 

CM.EMP 

PHILIPPINES 

The Online Advanced Systems 

Corporation 

Rico House, Amorsolo Cor. Herrera 

Street 

Legaspi Wage, Uakatl 

P.O. Box 1510 

Metro MANILA 

Tel: 85-35-81, 85-34-91, 85-32-21 

Telex: 3274 ONLINE 

A,CH,CS,E,M 

Electronic Specialists and 

Proponents Inc. 

690-B Epi/anto de los Santos 

Avenue 

Cubao, QUEZON CITY 

P.O. Box 2649 Manila 

Tel: 98-96-81, 98-96-82, 98-96-83 

Telex: 40018, 42000 ITT GLOBE 

UACKAY BOOTH 

P 

PORTUGAL 

Mundinter 

Intercambio Mundial de ComSrcio 
S.A.R.L. 
P.O. Box 2761 

Avenida Antonio Augusto de Aguiar 
138 

P-USBOH 

Tel: (19) 53-21-31, 53-21-37 
Telex: 16691 munterp 
M 

Soquimica 

Av. da Liberdade, 220-2 
1298 US80A Codex 
Tel: 56 21 81/2/3 
Telex: 13316 SABASA 
P 

Telectra-Empresa Tecnica de 
Equipmentos Electricos S.A.R.L. 
Rua Rodrigo da Fonseca 103 
P.O. Box 2531 
P-USB0N1 
Tel: (19) 68-60-72 
Telex: 12598 
CH,CS,E,P 

PUERTO RICO 

Hewlett-Packard Puerto Rico 

P.O. Box 4407 

CAROLINA, Puerto Rico 00628 

Calle 272 Edificio 203 

Urb. Country Club 

RIO PIEDRAS, Puerto Rico 

Tel: (809) 762-7255 

A.CH.CS 

QATAR 

Computearbia 

P.O. Box 2750 

DOHA 

Tel: 883555 

Telex: 4806 CHPARB 

P 

Eastern Technical Services 

P.0.Box4747 

DOHA 

Tel: 329 993 

Telex: 4156 EASTEC DH 



Nasser Trading & Contracting 

P.0.Box 1563 

DOHA 

Tel: 22170, 23539 

Telex: 4439 NASSER DH 

M 

SAUDI ARABIA 

Modem Electronic Establishment 

Hewlett-Packard Division 

P.O. Box 281 

Thuobah 

AL-KHOBAR 

Tel: 864-46 78 

Telex: 671 106 HPMEEK SJ 

Cable: ELECTA AL-KHOBAR 

CH,CS,E,M,P 

Modern Electronic Establishment 

Hewlett-Packard Division 

P.O. Box 1228 

Redec Plaza, 6th Floor 

JEDDAH 

Tel: 644 38 48 

Telex: 4027 12 FARNAS SJ 

Cable: ELECTA JEDDAH 

CH,CS,E,U,P 

Modem Electrons Establishment 

Hewlett-Packard Division 

P.O.Box2728 

RIYADH 

Tel: 491-97 15, 491-63 87 

Telex: 202049 MEERYD SJ 

CH,CS,E,M,P 

SCOTLAND 

Sea United Kingdom 

SINGAPORE 

Hewlett-Packard Singapore (Sales) 

Re. Ltd. 

P.O. Box 58 Alexandra Post Office 

SINGAPORE, 9115 

6th Floor, Inchcape House 

450-452 Alexandra Road 

SINGAPORE 0511 

Tel: 631788 

Telex: HPSGS0 RS 34209 

Cable: HEWPACK, Singapore 

A,CH,CS,E,MS,P 

Dynamar International Ltd. 

Unit 05- 11 Block 6 

Kolam Ayer Industrial Estate 

SINGAPORE 1334 

Tel: 747-6188 

Telex: RS 26283 

CM 

SOUTH AFRICA 

Hewlett-Packard So Africa (Pty.) 

Ltd. 

P.O. Box 120 

Howard Place CAPE PROVINCE 7450 

Pine Park Center, Forest Drive, 

Pinelands 

CAPE PROVINCE 7405 

Tel: 53-7954 

Telex: 57-20006 

A,CH,CM,E,MS,P 

Hewlett-Packard So Africa (Pty.) 

Ltd. 

P.O. Box 37099 

92 Overport Drive 

DURBAN 4067 

Tel: 28-4178, 28-4179, 28-4110 

Telex: 6-22954 

CH.CM 



Hewlett-Packard So Africa (Pty.) 

Ltd. 

6 Linton Arcade 

511 Cape Road 

Linton Grange 

PORT ELIZABETH 6001 

Tel: 041-302148 

CH 

Hewlett-Packard So Africa (Pty.) 

Ltd. P.0.Box 33345 

Glenstantia 0010 TRANSVAAL 

1st Floor East 

Constantia Park Ridge Shopping 

Centre 

Constantia Park 

PRETORIA 

Tel: 982043 

Telex: 32163 

CH.E 

Hewlett-Packard So Africa (Pty.) 

Ltd. 

Private Bag Wendywood 

SANDT0N2144 

Tel: 802-5111, 802-5125 

Telex: 4-20877 

Cable: HEWPACK Johannesburg 

A,CH,CM,CS,E,MS,P 

SPAIN 

Hewlett-Packard Espaflola S.A. 

Calle Entenza, 321 

E-BARCEL0NA 29 

Tel: 322.24.51, 321.73.54 

Telex: 52603 hpbee 

A,CH,CS,E,MS,P 

Hewlett-Packard Espaflola S.A. 

Calle San Vicente S/No 

Edrficio Albia II 

E-BILBA0 1 

Tel: 423.83.06 

A,CH,E,MS 

Hewlett-Packard Espahola S.A. 

Crta. de la Corufla, Km. 16, 400 

Las Rozas 

E-MADRID 

Tel: (1)637.00.11 

CH.CS.M 

Hewlett-Packard Espaflola S.A. 

Avda. S. Francisco Javier, S/no 

Planta 10. Edificio Sevilla 2, 

E-SEVWA 5 

Tel: 64.44.54 

Telex: 72933 

A,CS,MS,P 

Hewlett-Packard Espaflola S.A. 

Calle Ramon Gordillo, 1 (Entlo.3) 

E-VALENCIA 10 
Tel: 361-1354 
CH,P 

SWEDEN 

Hewlett-Packard Sverige AB 

Sunnanvagen 14K 

S-22226 LUND 

Tel: (046) 13-69-79 

Telex: (854) 17886 (via Spanga 

office) 

CH 

Hewlett-Packard Sverige AB 

Vastra Vintergatan 9 

S-70344 0REBR0 

Tel: (19) 10-48-80 

Telex: (854) 17886 (via Spanga 

office) 

CH 



Hewlett-Packard Sverige AB 

Skalholtsgatan 9, Kista 

Box 19 

S- 16393 SPANGA 

Tel: (08) 750-2000 

Telex: (854) 17886 

A,CH,CM,CS,E,MS,P 

Hewlett-Packard Sverige AB 

FrOtallisgatan 30 

S-42132VASTRA-FR0LUNDA 

Tel: (031) 49-09-50 

Telex: (854) 17886 (via Spanga 

office) 

CH,E,P 

SWITZERLAND 

Hewlett-Packard (Schweiz) AG 

Clarastrasse 12 

CH-4058 BASLE 

Tel: (61) 33-59-20 

A 

Hewlett-Packard (Schweiz) AG 

7, rue du Bois-du-Lan 

Case Postale 365 

CH-1217MEYRIN1 

Tel: (0041)22-83-11-11 

Telex:27333 HPAG CH 

CH.CM.CS 

Hewlett-Packard (Schweiz) AG 

Allmend 2 

CH-8967 WIDEN 

Tel: (0041) 57 31 21 11 

Telex: 53933 hpag ch 

Cable: HPAG CH 

A,CH,CM,CS,E,MS,P 

SYRIA 

General Electronic Inc. 

Nuri Basra P.O. Box 5781 

DAMASCUS 

Tel: 33-24-87 

Telex: 11216 ITIKALSY 

Cable: ELECTROBOR DAMASCUS 

E 

Middle East Electronics 

Place Azm4 

P.0.Box2308 

DAMASCUS 

Tel: 334592 

Telex: 11304 SATAC0SY 

M,P 

TAIWAN 

Hewlett-Packard Far East Lid. 

Kaohsiung Office 

2/F 68-2, Chung Cheng 3rd Road 

KAOHSIUNG 

Tel: 241-2318, 261-3253 

CH,CS,E 

Hewlett-Packard Far East Ltd. 

Taiwan Branch 

5th Floor 

205 Tun Hwa North Road 

TAIPEI 

Tel: (02) 712-0404 

Cable:HEWPACK Taipei 

A,CH,CM,CS,E,M,P 

Ing Lih Trading Co. 

3rd Floor, 7 Jen-AiRoad, Sec. 2 

TAIPEI 100 

Tel: (02) 3948191 

Cable: INGLIH TAIPEI 

A 



THAILAND 

Unimesa 

30 Patpong Ave., Suriwong 
BANGKOK 5 

Tel: 235-5727 

Telex: 84439 Simonco TH 

Cable: UNIMESA Bangkok 

A,CH,CS,E,M 

Bangkok Business Equipment Ltd. 

5/5-6 Dejo Road 

BANGKOK 

Tel: 234-8670, 234-8671 

Telex: 87669-BEOUIPT TH 

Cable: BUSIOUIPT Bangkok 

P 

TRINIDAD & TOBAGO 

Caribbean Telecoms Ltd. 

50/A Jerningham Avenue 

P.O. Box 732 

P0RT-0F-SPAIN 

Tel: 62-44213, 62-44214 

Telex: 235,272 HUGCO WG 

CM,E,M,P 

TUNISIA 

Tunisie Electronique 

31 Avenue de la Liberie 
TUNIS 

Tel: 280-144 

B,P 

Corema 

1 ter. Av.de Carthage 

TUNIS 

Tel: 253-821 

Telex: 12319 CABAM TN 

M 

TURKEY 

Teknim Company Ltd. 

Iran Caddesi No. 7 

Kavaklidere, ANKARA 

Tel: 275800 

Telex: 42155 TKNMTR 

E 

E.M.A. 

Medina Eldem Sokak No.4 1/6 

Yuksel Caddesi 

ANKARA 

Tel: 175 622 

M 

UNITED ARAB EMIRATES 

Em/lac Lid. 

P.O. Box 1641 

SHARJAH 

Tel: 354121, 354123 

Telex: 68 136 Emitac Sh 

CH,CS,E,M,P 

UNITED KINGDOM 

GREAT BRITAIN 

Hewlett-Packard Ltd. 
Trafalgar House 
Navigation Road 
ALTRINCHAM 
Cheslre WA14 1NU 
Tel: (061) 928-6422 
Telex: 668068 
A,CH,CS,E.M 

Hewlett-Packard Ltd. 

Oaklield House, Oakfiek) Grove 

Clifton 

BRISTOL BS8 2BN, Avon 

Tel: (027) 38606 

Telex: 444302 

CH.M.P 
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GREAT BRITAIN (Cont'd) 

Hewlett-Packard Ltd. 
Fourier House 
257-263 High Street 
LONDON COLNEY 
Herts., AL2 1HA, St. Albans 
Tel: (0727) 24400 
Telex: 1-8952716 
CH.CS.E 

Hewlett-Packard Ltd. 
Quadrangle 
106-118 Station Road 
REDHILL, Surrey 
Tel: (0737) 68655 
Telex: 947234 
CH,CS,E 

Hewlett-Packard Ltd. 
Avon House 
435 Stratford Road 
SHIRLEY, Solihull 
West Midlands B90 4BL 
Tel: (021) 745 8800 
Telex: 339105 
CH 

Hewlett-Packard Ltd. 
West End House 41 
High Street, West End 
SOUTHAMPTON 
Hampshire S03 3DO 
Tel: (703) 886767 
Telex: 477138 
CH 

Hewlett-Packard Ltd. 
King Street Lane 
WINNERSH, Wokingham 
Berkshire RG 11 5AR 
Tel: (0734) 784774 
Telex: 847178 
A,CH,E,M 

Hewlett-Packard Ltd. 
Nine Mile Ride 
WOKINGHAM 
Berkshire, 3RG113LL 
Tel: 3446 3100 
Telex: 84-88-05 
CH.CS.E 

NORTHERN IRELAND 

Cardiac Services Company 
95A Finaghy Road South 
BELFAST BT 10 OBY 
Tel: (0232) 625-566 
Telex: 747626 
U 

SCOTLAND 

Hewlett-Packard Ltd. 
SOUTH OUEENSFERRY 
West Lothian, EH30 9GT 
Tel: (031) 3311188 
Telex: 72682 
A,CH,CM,CS,E,M 

UNITED STATES 

Alabama 

Hewlett-Packard Co. 

P.O. Box 7000 

8290 Whitesburg Drive, S.E. 

HUNTSVILLE, AL 35802 

Tel: (205) 830-2000 

CH,CM,CS,E,M* 

Arizona 

Hewlett-Packard Co. 
8080 Point Parkway West 
PHOENIX, AZ 85044 
Tel: (602) 273-8000 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
2424 East Aragon Road 
TUCSON, AZ 85706 
Tel: (602) 889-4631 
CH,E,MS" 



California 

Hewlett-Packard Co. 

99 South Hill Dr. 

4BRISBANE, CA 94005 

Tel: (415) 330-2500 

CH.CS 

Hewlett-Packard Co. 

7621 Canoga Avenue 

CANOGA PARK, CA 91304 

Tel: (213) 702-8363 

A,CH,CS,E,P 

Hewlett-Packard Co. 

P.O. Box 7830 (93747) 

5060 E. Clinton Avenue, Suite 102 

FRESNO, CA 93727 

Tel: (209) 252-9652 

CH,CS,MS 

Hewlett-Packard Co. 

P.O. Box 4230 

1430 East Orangethorpe 

FUUERTON, CA 92631 

Tel: (714) 870-1000 

CH,CM,CS,E,MP 

Hewlett-Packard Co. 

320 S. Kellogg, Suite B 

GOLETA, CA 93117 

Tel: (805) 967-3405 

CH 

Hewlett-Packard Co. 

5400 W. Rosecrans Boulevard 

LAWNDALE, CA 90260 

P.O. Box 92105 

LOS ANGELES, CA 90009 

Tel: (213) 970-7500 

Telex: 910-325-6608 

CH,CM,CS,MP 

Hewlett-Packard Co. 

3200 HIHview Avenue 

PALO ALTO, CA 94304 

Tel: (415) 857-8000 

CH,CS,E 

Hewlett-Packard Co. 

P.O. Box 15976 (95813) 

4244 So. Market Court, Suite A 

SACRAMENTO, CA 95834 

Tel: (916) 929-7222 

A*,CH,CS,E,MS 

Hewlett-Packard Co. 

9606 Aero Drive 

P.O. Box 23333 SAN DIEGO, CA 

92123 

Tel: (619) 279-3200 

CH,CM,CS,E,MP 

Hewlett-Packard Co. 

2305 Camino Ramon "C" 

SAN RAMON, CA 94583 

Tel: (415) 838-5900 

CH.CS 

Hewlett-Packard Co. 

P.O. Box 4230 

Fullerton, CA 92631 

363 Brookhollow Drive 

SANTA ANA, CA 92705 

Tel: (714) 641-0977 

A,CH,CM,CS,MP 

Hewlett-Packard Co. 

3003 Scott Boulevard 

SANTA CLARA, CA 95050 

Tel: (408) 988-7000 

Telex: 910-338-0586 

A,CH,CM,CS,E,MP 

Hewlett-Packard Co. 

5703 Corsa Avenue 

WESTLAKE VILLAGE, CA 91362 

Tel: (213) 706-6800 

E*,CH\CS* 



Colorado 

Hewlett-Packard Co. 
24 Inverness Place, East 
ENGLEWOOD,CO80112 
Tel: (303) 771-3455 
Telex: 910-935-0785 
A,CH,CM,CS,E,MS 

Connecticut 

Hewlett-Packard Co. 

47 Barnes Industrial Road South 

P.O. Box 5007 

WALLINGFORD, CT 06492 

Tel: (203) 265-7801 

A,CH,CM,CS,E,MS 

Florida 

Hewlett-Packard Co. 

P.O. Box 24210 (33307) 

2901 N.W. 62nd Street 

FORT LAUDERDALE, FL 33309 

Tel: (305) 973-2600 

CH,CS,E,MP 

Hewlett-Packard Co. 

P.O. Box 13910 

6177 Lake Ellenor Drive 

ORUNDO, FL 32809 

Tel: (305) 859-2900 

A,CH,CM,CS,E,MS 

Hewlett-Packard Co. 

5750B N. Hoover Blvd., Suite 123 

TAMPA, FL 33614 

Tel: (813) 884-3282 

A*,CH,CM,CS,E*,M* 

Georgia 

Hewlett-Packard Co. 
P.O. Box 105005 
30348 ATLANTA.QA 
2000 South Park Place 
ATLANTA, GA 30339 
Tel: (404) 955-1500 
Telex: 810-766-4890 
A,CH,CM,CS,E,MP 

Hawaii 

Hewlett-Packard Co. 
Kawaiahao Plaza, Suite 190 
567 South King Street 
HONOLULU, HI 96813 
Tel: (808) 526-1555 
A,CH,E,MS 

Illinois 

Hewlett-Packard Co. 
P.O. Box 1607 
304 Eldorado Road 
BLOOMINGTON, IL 61701 
Tel: (309) 662-94 11 
CH.MS** 

Hewlett-Packard Co. 
1100 31st Street, Suite 100 
DOWNERSGROVE.IL 60515 
Tel: (312) 960-5760 
CH.CS 

Hewlett-Packard Co. 
5201 Tollview Drive 
ROLLING MEADOWS, IL 60008 
Tel: (312) 255-9800 
Telex: 910-687-1066 
A,CH,CM,CS,E,MP 

Indiana 

Hewlett-Packard Co. 

P.O. Box 50807 

7301 No. Shadeland Avenue 

INDIANAPOLIS, IN 46250 

Tel: (317) 842-1000 

A,CH,CM,CS,E,MS 



Iowa 

Hewlett-Packard Co. 
1776 22nd Street, Suite 1 
WEST DES MOINES, IA 50262 
Tel: (515) 224-1435 
CH.MS** 

Hewlett-Packard Co. 
2415 Heinz Road 
IOWA CITY, IA 52240 
Tel: (319) 351-1020 
CH,E',MS 

Kansas 

Hewlett-Packard Co. 
7804 East Funslon Road 
Suite 203 

WICHITA, KA 67207 
Tel: (316) 684-8491 
CH 

Kentucky 

Hewlett-Packard Co. 
10300 Linn Station Road 
Suite 100 

LOUISVILLE, KY 40223 
Tel: (502) 426-0100 
A,CH,CS,MS 

Louisiana 

Hewlett-Packard Co. 
P.O. Box 1449 
KENNER, LA 70063 
160 James Drive East 
ST. ROSE, LA 70087 
Tel: (504) 467-4100 
A,CH,CS,E,MS 

Maryland 

Hewlett-Packard Co. 
3701 Koppers Street 
BALTIMORE, Md. 21227 
Tel: (301) 644-5800 
Telex: 710-862-1943 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
2 Choke Cherry Road 
ROCKVILLE, MD 20850 
Tel: (301) 948-6370 
A,CH,CM,CS,E,MP 

Massachusetts 

Hewlett-Packard Co. 
32 Hartwell Avenue 
LEXINGTON, MA 02173 
Tel: (617) 861-8960 
A,CH,CM,CS,E,MP 

Michigan 

Hewlett-Packard Co. 
23855 Research Drive 
FARMINGTON HILLS, Ml 48024 
Tel: (313) 476-6400 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
4326 Cascade Road S.E. 
GRAND RAPIDS, Ml 49506 
Tel: (616) 957-1970 
CH,CS,MS 

Hewlett-Packard Co. 
1771 W. Big Beaver Road 
TROY, Ml 48084 
Tel: (313) 643-6474 
CH.CS 

Minnesota 

Hewlett-Packard Co. 
2025 W. Larpenteur Ave. 
ST. PAUL, MN 551 13 
Tel: (612) 644-1100 
A,CH,CM,CS,E,MP 



Missouri 

Hewlett-Packard Co. 
11131 Colorado Avenue 
KANSAS CITY, MO 64137 
Tel: (816) 763-8000 
A,CH,CM,CS,E,MS 
Hewlett-Packard Co. 
13001 Hollenberg Drive 
BRIDGETON, MO 63044 
Tel: (314) 344-5100 
A,CH,CS,E,MP 

Nebraska 

Hewlett-Packard 

10824 Old Mill Rd., Suite 3 

OMAHA, NE 68154 

Tel: (402) 334-1813 

CM.MS 

New Jersey 

Hewlett-Packard Co. 
W120 Century Road 
PARAMUS, NJ 07652 
Tel: (201) 265-5000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
60 New England Av-. West 
PISCATAWAY, NJ 08854 
Tel: (201) 981-1 199 
A,CH,CM,CS,E 

New Mexico 

Hewlett-Packard Co. 
P.O.Box 11634(87192) 
11300LomasBlvd.,N.E. 
ALBUQUERQUE, NM 87112 
Tel: (505) 292-1330 
CH,CS,E,MS 

New York 

Hewlett-Packard Co. 
Computer Drive South 
ALBANY, NY 12205 
Tel: (518) 458-1550 
Telex: 710-444-4691 
A,CH,E,MS 
Hewlett-Packard Co. 
P.O. Box AC 
9600 Main Street 
CLARENCE, NY 14031 
Tel: (716) 759-8621 
CH 

Hewlett-Packard Co. 
200 Cross Keys Office Park 
FAIRPORT, NY 14450 
Tel: (716) 223-9950 
CH,CM,CS,E,MS 
Hewlett-Packard Co. 
7641 Henry Clay Blvd. 
LIVERPOOL, NY 13088 
Tel: (315) 451-1820 
A,CH,CM,E,MS 
Hewlett-Packard Co. 
No. 1 Pennsylvania Plaza 
55th Floor 

34th Street & 8th Avenue 
MANHATTAN NY 10001 
Tel: (212) 971-0800 
CH,CS,E*,M* 
Hewlett-Packard Co. 
250 Westchester Avenue 
WHITE PLAINS, NY 10604 
Tel: (914) 328-0884 
CM,CH,CS,E 
Hewlett-Packard Co. 
3 Crossways Park West 
WOODBURY, NY 11797 
Tel: (516) 921-0300 
Telex: 510-221-2183 
A,CH,CM,CS,E,MS 
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UNITED STATES (Cont'd) 

North Carolina 

Hewlett-Packard Co. 
P.O. Box 26500 (27420) 
5605 Roanne Way 
GREENSBORO, NC 27409 
Tel: (919) 852-1800 
A,CH,CM,CS,E,MS 

Ohio 

Hewlett-Packard Co. 
9920 Carver Road 
CINCINNATI, OH 45242 
Tel: (513) 891-9870 
CH.CS.MS 

Hewlett-Packard Co. 
16500 Sprague Road 
CLEVELAND, OH 44130 
Tel: (216) 243-7300 
A,CH,CM,CS,E,MS 

Hewlett-Packard Co. 
962 Crupper Ave. 
COLUMBUS, OH 43229 
Tel: (614) 436-1041 
CH,CM,CS,E* 
Hewlett-Packard Co. 
P.O. Box 280 
330 Progress Rd. 
DAYTON, OH 45449 
Tel: (513) 859-8202 
A,CH,CM,E*,MS 

Oklahoma 

Hewlett-Packard Co. 
P.O. Box 75609 (73147) 
304 N. Meridian, Suite A 
3 

OKLAHOMA CITY, OK 73107 
Tel: (405) 946-9499 
A'.CH.E'.MS 
Hewlett-Packard Co. 
3840 S. 103rd E. Avenue 
Logan Building, Suite 100 
TULSA, OK 74145 
Tel: (918) 665-3300 

a^.ch.cs.m* 

Oregon 

Hewlett-Packard Co. 
9255 S. W. Pioneer Court 
WILSONVILLE, OR 97070 
Tel: (503) 682-8000 
A,CH,CS,E',MS 

Pennsylvania 

Hewlett-Packard Co. 
1021 8th Avenue 
KING OF PRUSSIA, PA 19046 
Tel: (215) 265-7000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
111 Zeta Drive 
PITTSBURGH, PA 15238 
Tel: (412) 782-0400 
A,CH,CS,E,MP 

South Carolina 

Hewlett-Packard Co. 
P.O. Box 21708 (29221) 

Brookside Park, Suite 122 
1 Harbison Way 
COLUMBIA, SC 29210 
Tel: (803) 732-0400 
CH.E.MS 

Tennessee 

Hewlett-Packard Co. 
3070 Directors Row 
MEMPHIS, TN 38131 
Tel: (901) 346-8370 
A,CH,MS 



Texas 

Hewlett-Packard Co. 
Suite C- 110 
4171 North Mesa 
EL PASO, TX 79902 
Tel: (915) 533-3555 
CH,E*,MS" 
Hewlett-Packard Co. 
P.O. Box 42816 (77042) 
10535 Harwin Street 
HOUSTON, TX 77036 
Tel: (713) 776-6400 
A,CH,CM,CS,E,MP 

Hewlett-Packard Co. 
P.O. Box 1270 
930 E. Campbell Rd. 
RICHARDSON, TX 75080 
Tel: (214) 231-6101 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
P.O. Box 32993 (78216) 
1020 Central Parkway South 
SAN ANTONIO, TX 78232 
Tel: (512) 494-9336 
CH,CS,E,MS 

Utah 

Hewlett-Packard Co. 
P.O. Box 26626 (84126) 
3530 W. 2100 South 
SALT LAKE CITY, UT 84119 
Tel: (801) 974-1700 
A,CH,CS,E,MS 

Virginia 

Hewlett-Packard Co. 
P.O. Box 9669 (23228) 
RICHMOND, Va. 23228 
4305 Cox Road 
GLEN ALLEN, Va. 23060 
Tel: (804) 747-7750 
A,CH,CS,E,MS 

Washington 

Hewlett-Packard Co. 
15815 S.E. 37th Street 
BELLEVUE, WA 98006 
Tel: (206) 643-4000 
A,CH,CM,CS,E,MP 
Hewlett-Packard Co. 
Suite A 

708 North Argonne Road 
SPOKANE, WA 99206 
Tel: (509) 922-7000 
CH.CS 

West Virginia 

Hewlett-Packard Co. 

P.O. Box 4297 

4604 MacCorkle Ave., S.E. 

CHARLESTON, WV 25304 

Tel: (304) 925-0492 

A,MS 

Wisconsin 

Hewlett-Packard Co. 
150 S. Sunny Slope Road 
BROOKFIELD, Wl 53005 
Tel: (414) 784-8800 
A,CH,CS,E\MP 



URUGUAY 

Pabto Ferrando S.A.C. e I. 

Avenida Italia 2877 

Casilla de Correo 370 

MONTEVIDEO 

Tel: 80-2586 

Telex: Public Booth 90 1 

A.CM.E.M 

VENEZUELA 

Hewlett-Packard de Venezuela C.A. 

3A Transversal Los Ruices Norte 

Edificio Segre 

Apartado 50933 

CARACAS 1071 

Tel: 239-4133 

Telex: 25146 HEWPACK 

A,CH,CS,E,MS,P 

Hewlett-Packard de Venezuela C.A. 

Calle-72-Enlre 3H Y 3Y, NO.3H-40 

Edificio Ada-Evelyn, Local B 

Apartado 2646 

MARACAIBO, Eslado Zulia 

Tel: (061) 80.304 

C,E* 

Hewlett-Packard de Venezuela C.A. 

Calie Vargas Rondon 

Edificio Seguros Carabobo, Piso 10 

VALENCIA 

Tel:(041) 51 385 

CH,CS,P 

Colimodio S.A. 

Este 2 - Sur 21 No. 148 

Apartado 1053 

CARACAS 1010 

Tel: 571-3511 

Telex: 21529 COLU0DI0 

M 

ZIMBABWE 

Field Technical Sabs 
45 Kelvin Road, North 
PS. 3458 
SALISBURY 
Tel: 705 231 
Telex: 4-122 RH 
CEMP 



HEADQUARTERS 
OFFICES 

If there is no sales office listed for 
your area, contact one of these 
headquarters offices. 

NORTH/CENTRAL 
AFRICA 

Hewlett-Packard S.A. 
7 Rue du Bois-du-Lan 
CH-1217 MEYRIN 1, Switzerland 
Tel: (022) 83 12 12 
Telex: 27835 hpse 
Cable: HEWPACKSA Geneve 

ASIA 

Hewlett-Packard Asia Ltd. 
6th Floor, Sun Hung Kai Centre 
30 Harbour Rd. 
G.P.0. Box 795 
HONG KONG 
Tel: 5-832 3211 
Telex: 66678 HEWPA HX 
Cable: HEWPACK HONG KONG 

CANADA 

Hewlett-Packard (Canada) Ltd. 
6877 Goreway Drive 
MISSISSAUGA, Ontario L4V 1M8 
Tel: (416) 678-9430 
Telex: 610-492-4246 

EASTERN EUROPE 

Hewlett-Packard Ges.m.b.h. 

Lieblgasse 1 

P.O.Box 72 

A- 1222 VIENNA, Austria 

Tel: (222) 2365110 

Telex: 1 3 4425 HEPA A 

NORTHERN EUROPE 

Hewlett-Packard S.A. 
Uilenstede 475 
NL-1183AGAMSTELVEEN 
The Netherlands 
P.O.Box 999 
NL-1180AZAMSTELVEEN 
The Netherlands 
Tel: 20 437771 

OTHER EUROPE 

Hewlett-Packard S.A. 
7 rue du Bois-du-Lan 
CH-1217 MEYRIN I.Switzerland 
Tel: (022) 83 1212 
Telex: 27835 hpse 
Cable: HEWPACKSA Geneve 

MEDITERRANEAN AND 
MIDDLE EAST 

Hewlett-Packard S.A. 

Mediterranean and Middle East 

Operations 

Atrina Centre 

32 Kifissias Ave. 

Maroussi, ATHENS, Greece 

Tel: 682 88 1 1 

Telex: 21-6588 HPAT GR 

Cable: HEWPACKSA Athens 

EASTERN USA 

Hewlett-Packard Co. 
4 Choke Cherry Road 
FtockvUle, MD 20850 
Tel: (301) 258-2000 

MIDWESTERN USA 

Hewlett-Packard Co. 
5201 Tollview Drive 
ROLLING MEADOWS, IL 60008 
Tel: (312) 255-9800 



SOUTHERN USA 

Hewlett-Packard Co. 
P.O. Box 105005 
450 Interstate N. Parkway 
ATLANTA, GA 30339 
Tel: (404) 955-1500 

WESTERN USA 

Hewlett-Packard Co. 
3939 Lankershim Blvd. 
LOS ANGELES, CA 91604 
Tel: (213) 877-1282 

OTHER INTERNATIONAL 
AREAS 

Hewlett-Packard Co. 
Intercontinental Headquarters 
3495 Deer Creek Road 
PALO ALTO, CA 94304 
Tel: (415) 857-1501 
Telex: 034-8300 
Cable: HEWPACK 
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